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In diesem Heft u.a.: 


VC-20 


Editor 
Assembler 
HC-Invaders 
Car-Crash 


VC-64 


Geisterjäger 
Mondlandung 
Wurm 
Sprite-Generator 


ZX-81 


Ritter 
Missile ZX-Command — 


Apple 
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15 neue Programme 
+ Tips + News 
aus aller Welt 








Liebe Leserin, lieber Leser, 


wenn Sie diese Zeilen lesen, ist 
die Hannover-Messe 83 schon 
beendet. 

Jetzt im Moment, in dem ich 
diese Zeilen schreibe, steht sie 
wenige Stunden bevor. 8 Tage 
lang werden wir uns bemühen, 
das Interessanteste für Sie, die 
Leser von Homecomputer, her- 
auszupicken, werden wir versu- 
chen, detaillierte Informatio- 
nen über alles Neue und Be- 
richtenswerte zusammenzufas- 
sen. 

Im Juni-Heft werden wir dann 
darüber berichten. Darum wird 
die Neuheitenrubrik etwas ver- 
größert werden. Allerdings 
würde ein allumfassender Be- 
richt den Rahmen von Home- 
computer bei weitem sprengen 
und weniger veröffentlichte 
Software bedeuten. 

Dies möchten wir nicht. Auch 
in Heft 6/83 sollen, wie bei uns 
üblich, mehr als 15 Programme 
enthalten sein. 



































































































































































































































Aus diesem Grunde bringen 
wir ein „Sonderheft Hannover- 
Messe“ heraus, damit Sie sich - 
auch falls Sie nicht die Gelegen- 
heit hatten länger oder über- 
haupt diese wichtigste aller 
Messen zu besuchen — über al- 
les ausführlich informieren 
können. 

Microcomputer, Drucker, Da- 
tenspeichergeräte fürs Heim; 
darüber werden wirin Wort und 
Bild berichten und hoffen, Ih- 
nen damit eine interessante Er- 
gänzung zum gewohnten Ho- 
mecomputer mit dem Pro- 
grammservice zu bieten. 


Herzlichst 
Ihr Ralph Roeske 
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Homecomputer bringt in diesem Monat: 


Leserbriefe 
News & Trends 
Texas 99 


Panzerkrieg 
Panzer bahnen sich den Weg durch unwegsames Gelände. 


TI-UFO 


Ein Raumflug mit wachsendem Schwierigkeitsgrad 


Killersatellit 
Der TI-99 versucht den Space-Shuttle des Spielers zu vernichten. 


Sharp MZ-80K 

Eidechse 

Ein lustiges Spiel. Eine Eidechse muß soviele Fliegen wie mögl. fangen. 
Lesersoftware 


Chiffrier-/Dechiffrier-Programm 
Der TI-99 als Ver- und Entschlüssler von geheimen Nachrichten. 


Rangliste 
Der TI-99 sortiert erreichte Punktzahlen bei Sport und Spiel. 
Starship VC-20 


HC-Invaders 
Ein Basic/Maschinenspracheprogramm für den 16K-VC-20 


Editor für 6502-Systeme 


Fortsetzung der Reihe "Programmieren in Assembler” 


Labyrinth in 3.5 K 
Es geht doch! Labyrinth im VC-20 ohne Erweiterung! 


Car-Crash 
Ein Arkadenspiel bei dem man höllisch schnell schalten muß! 
Software 


Grandmaster - ein Meister seines Fachs. 
Wir stellen ein interessantes Schachprogramm vor. 


Die ZX-Seiten 


Ritter 


Ein Ritter (bewegt vom Spieler) versucht, in eine Burg zu gelangen und 
wird dabei von Pechwolken und wehrhaften Burgverteidigern bedrängt. 


Missile ZX-Command 


Noch ein Arkadenspiel - die bekannte Städteverteidigung! 


VC-64 VideoChips 
Mondlandung VC-64 
Ein Programm das es in sich hat. Nicht leicht, den ”Adler“ zu landen. 


Wurm \ 
Ein Wurm kämpft ums Überleben. 


Geisterjäger 
Ein hübsches Spiel mit der VC-64-Sprite-Grafik. 
VC-64-Sprites-Generator 


Ein Programm zum einfachen Erzeugen und Speichern von Sprites. 


Apple-Kiste 

Diskschutz für Apple II 

Disketten vor unbefugten Anwendern schützen. 

Trollhöhlen 

Mit gefährlichen Bandwürmern, Trollen und sonstigen Ungeheuern. 


Pet-Bytes 


Computerhirn = Mastermind 
Mastermind 2 
Zwei Denkspiele - einmal anders. 


PEEKs + POKEs 


Der VC-64-Videochip 
Serienstart. Blicke in die Bytes des VC-64. 


Korrekturen 
Software-Service 





Heft 3 noch lieferbar 


Ich bin angenehm beeindruckt von dem Inhalt Ihrer Zeit- 
schrift Homecomputer. Leider habe ich das erste Heft 
nicht mehr am Kiosk bekommen. Bitte senden Sie mir das 
Heft 3/83 und die VC20-Kassette Heft 4. 


P. Hirsch Köln 


Es ist ab Mai noch eine begrenzte Zahl von Heft 3 zu haben. 
Bitte bestellen Sie über den Verlag. 


zu Slalom Heft 3/83 


Zu Heft 3 habe ich folgende Frage: 
Wie steuert man im Programm Slalom den Fahrer? 


Johann Breitenfellner Linz 


Die Tasten Z und / steuern den Alpinisten. Das haben wir 
vergessen abzudrucken. 


ZX-Drucke 


Mit großem Interesse habe ich Ihre Zeitschrift “*Home- 
computer“ gelesen. 

Beim Labyrinth-Programm für den ZX81 treten bei mir 
jedoch Schwierigkeiten auf. Das Unterprogramm in Ma- 
schinensprache, welches in einem Stringausdruck unter- 
gebracht ist, ist leider kaum lesbar. 

Die Zeichen 8 und B sind teilweise nicht zu unterschei- 
den. Aus diesem Grund läuft das Unterprogramm bei mir 
nicht. 

Mein Tip für zukünftige Ausgaben: Geben Sie das Pro- 
gramm in Maschinensprache in Dezimal an (wie bei U- 
Boot-Jagd), da dort eine Verwechselung zwischen Bund 8 
nicht auftreten kann. 


Thomas Kaus Burladingen 1 


Negativ... 


Positiv finde ich ... 

Negativ fällt es daher auf, daß Eure Zeitschrift eben gar 
nicht niedriger im Preis rangiert. Sie ist sogar, vergleicht 
man Preis und Umfang, so ziemlich die teuerste deutsche 
Zeitschrift ihrer Art! (z.B. kostet Computer persönlich 
nur 4,- DM!) 

Anzeigen in denen sich der Leser über den deutschen Ge- 
räte- und Softwaremarkt informieren kann, suchte ich in 
Homecomputer so gut wie vergeblich. Das ist nicht nurei- 
ne inhaltliche Lücke (ich kaufe eine Fachzeitschrift gera- 
de auch wegen der Anzeigen!) - es heißt auch, daß der 
Käufer die Herstellungskosten alleine zu decken hat! 


Franz Nagel Darmstadt 


Besitzen Sie einen Homecomputer? 
Sicher nicht, sonst hätten Sie das Preis/Leistungsverhältnis 
(von dem in der Computerbranche oft die Rede ist) schon er- 


kannt. Für einen VC-20-Anwender z.B. sind allein die Pro- 
gramme der ersten drei Ausgaben von Homecomputer einige 
Jahresabos wert - und das bei nur 16.50 DM! 


Nicht vollständig? 


Wäre es nicht möglich, in zukünftigen Ausgaben alle 
(auch öde Tippereien wie Apple-Steno) Programme voll- 
ständig abzudrucken, da 1 Disk/Monat die Taschengeld- 
grenze manches Kleincomputeraners haushoch über- 
steigt. 


Wolfgang Schmidt München 


Teilen Sie uns bitte mit, welche Seite in Ihrem Heft gefehlt 
hat. Oder haben Sie etwa nur den Absatz zum Leser-Service 
auf Seite 33 mißverstanden? 


Umsonst geärgert - 
Handbuch lesen. 


Die Märzausgabe von Homecomputer hat mich 505,50 
DM gekostet! 5,50 für das Heft und für 500,00 DM habe 
ich mich geärgert. Ich habe nämlich das Robotprogramm 
(fehlerfrei!) eingetippt und dazu brauche ich ja anschei- 
nend keine 16K-Erweiterung. Trotzdem läuft das Pro- 
gramm nicht. Nachdem die Leertaste gedrückt wurde ist 
es aus und vorbei, Errors, so weit das Auge reicht. Da ich 
fehlerfrei getippt habe (das habe ich bis zur “Vergasung“ 
nachgeprüft), glaube ich nicht, daß der Fehler bei mir 
liegt. 

Thomas Schiefer Eggenfelden 
Und doch ist es so. Weil die meisten VC-20-Besitzer eine 
Speichererweiterung um mindestens 8 K besitzen, schreiben 
wir Programme fast immer für 8- oder 16-K-Versionen. 
Daß dann die Adressen für Video- und Farbmatrix angepaßt 
werden müssen, wenn man weniger als 11.5 K freien Spei- 
cher hat, ist aus dem Handbuch zu ersehen. 

Der VC-20 ist aber glückleicherweise der einzige Microcom- 
puter, der uns auf diese Art und Weise angeschmiert hat, 
denn bei anderen Computern stellt sich das Problem nicht. 


MIDS mit Dreien? 


Bei Ihrem Kalender-Programm für den PET bin ich mit 
Ihrer Zeile 135 nicht ganz einverstanden. MIDS hat doch 
3 Argumente. Ich kann leider aus Zeitgründen nicht das 
ganze Programm durchgehen und möchte Sie bitten den 
Fehler zu korrigieren. 
Stefan Munch Erlensee 
Gibt es etwas zu korrigieren? Wer das Computerhobby ernst- 
haft betreibt, muß sich hin und wieder ein wenig Zeit neh- 
men, zu lernen, was noch nicht gelernt oder verstanden wur- 
de. Probieren Sie den MIDS mit 2 Argumenten aus. Sie wer- 
den überrascht sein. 





Ferien im Computer-Camp 


Super Freizeitspaß mit Computer- 
learning für junge Leute! 


Im Luftkurort ”Haltern am 
See” findet am 310 ha gro- 
ßen Trinkwassersee der 
Stevertalsperre eines der 
ersten europäischen Com- 
putercamps statt. Junge 
Leute werden hier spiele- 
risch mit dem Mikrocom- 
puter und der Program- 
miersprache BASIC ver- 
traut gemacht. Durch int- 
ensive Beschäftigung mit 
dem Mikrocomputer 
COMMODORE (für je 
zwei Teilnehmer steht eine 
Commodore-Anlage zur 
Verfügung) wird die Angst- 
schwelle schnell abgebaut 
und der Umgang mit der 
EDV-TECHNIK zur 
Selbstverständlichkeit. 

Vorgesehen sind: 50 Un- 
terrichtsstunden Compu- 
terlearning unter Anlei- 
tung von Fachdozenten, 
umfangreiches Unter- 
richtsmaterial, Einsatz von 
Video, zusätzlicher theore- 


111 Cassetten 





tischer Unterricht, Einfüh- 
rung in die EDV und Mi- 
krocomputer, sowie deren 
Möglichkeiten und Gren- 
zen. Neben dem Compu- 
terlearning steht der Kon- 
takt der Teens und Twens 
mit Sport, Spiel und Frei- 
zeitspaß im Vordergrung. 
Das Freizeit-Aktionspro- 
gramm bietet (teilweise ge- 
gen geringe Unkostenbe- 
teiligung) Fußball, 
Schwimmen, Reiten, Fahr- 
radverleih u. a.. Für das 
Rundumprogramm sind 
weiterhin vorgesehen: 
Planwagenfahrten, Nacht- 
wanderungen, Lagerfeuer 
und heiße Disconächte. 
Die Unterbringung, die ge- 
meinsamen Mahlzeiten, 
die Programmierung der 
Mikrocomputer COMMO- 
DORE findet in der ”Ju- 
gendherberge Haltener- 
Stausee” Overrath 39,4358 
Haltern-Stausee, statt. 
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SOFTWARE er 


AUTHORISED DEALER 


Software-Anbieter für die 
populären Homecomputer 
sind zur Zeit noch nicht 
sehr zahlreich gesät. Einer 
der größten Anbieter für 
ZX 81, Spectrum, VC 20, 
Acorn, BBC und Dragon 
ist der Softwareversand 
Augsburg, der jetzt auch 
den Spectrum-Computer 
im Programm hat. Produk- 
te der Firmen Artic, Bug 
Byte, Melbourne House, 
Publishers Personal Soft- 





ware A+F und Impact wer- 
den zum Teil exclusiv ver- 
trieben. 


Alles mit ausführlicher (al- 
lerdings englischer) Be- 
schreibung und original 
verpackt. Ein Katalog mit 
dem vorhandenen Pro- 
grammspektrum ist gegen 
Gebühr erhältlich. 


Softwareversand 
Thomas Wagner, Augsburg 





Microdrive bald lieferbar. 


Noch immer wartet die Homecom- 
puterwelt auf die Fertigstellung 
des vor 12 Jahren angekündigten 
Microdrives. 


Laut Sinclair stehen ledig- 
lich noch die speziell für 
die Firma hergestellten 
Halbleiter-Chips aus, die 
zur Zeitnoch eine Testpha- 
se durchlaufen. Das De- 
sign steht ebenfalls und in 
Kürze sollen für £40 per 
Stück die ersten 100.000 
Geräte zunächst an die er- 
sten Spectrum-Kunden ge- 
liefert und dann über den 
Handel auch der Rest der 
Interessenten bedient wer- 
den. 

Somit wird dann auch ein 
Gerücht sein Ende finden, 





nämlich, ob es sich um 
Microfloppies oder um 
”Microbänder”, ähnlich 
den sogenannten ”Stringy 
Floppies”, handelt. Laut 
unseren letzten vorliegen- 
den Informationen handelt 
es sich um ein Endlos- 
Band, das sich mit hoher 
Geschwindigkeit inner- 
halb_7 Sekunden einmal 
am Übertragungskopf vor- 
beibewegt. So wird eine 
durchschnittliche Zugriffs- 
zeit von 3,5 Sekunden er- 
reicht. 





TRS-80/VG-Club in 


Wuppertal 


Zu unserem Aufruf anläßlich der 
Clubecke im letzten Heft sandte 
uns Herr Gerd Breidenbruch aus 
Wuppertal folgende Mitteilung. 


Der TRS-80/Mod.l hat 
meines Erachtens einen 
sehr großen Marktanteil 
und ist immerhin der ‘Ho- 
mecomputer mit dem 
größten Software-Ange- 
bot‘ 

Vielleicht interessiert es 
Sie in diesem Zusammen- 
hang, daß es in Wuppertal 
einen TRS-80/Video-Ge- 
nie Club gibt (Anzahl der 
Mitglieder zur Zeit ca. 40, 
eigene Clubzeitschrift, 
Clubbeitrag keiner). 





Die Mitglieder des TRS- 
80/VG Clubs treffen sich 
monatlich einmal in der 
Universität Wuppertal 
Raum 113.34. Jeder Com- 
puter-Fan ist dort herzlich 
willkommen. 

Da die Treffen noch in un- 
regelmäßigen Abständen 
stattfinden, sollten sich In- 
teressenten erst bei dem 
Leiter der Gruppe, Herrn 
Horst Brodowski, Görde- 
lerstr. 7, 5657 Haan/Rhl. 
Tel.: 02129/4891 erkundi- 








ORANGE 2 COMPUTER 
(voll APPLE kompatibel) 


Groß-/Kleinschreibung, Umlaute bei allen Ausführungen 
SAUER 
11 
 — — 


a ONIC 





ggg 


Komplettsystem wie abgebildet ab DM 4499,- 
Bausatz: Hauptplatine 48K-RAM und alle Teile, fertiges Netzteil, 1 388 
Cherry-Tastatur (4 Cursortasten, 2 Editiertasten, Hometaste, Gehäuse) DM — 


Fertiggerät: wie oben, jedoch fertig aufgebaut, 
Orange 2 6 Monate Garantie nur DM 1 688,- 


A r Rechner und 2 Drives auf Anfrage. 


Profitastatur zur Textverarbeitung: 


Zehnerblock, Funktionstasten, Cursortasten, Umlaute, 488 
anschlußfertig im Gehäuse. Aufpreis nur DM _ 
PERIPHERIE: 

NEC-8023 BC n. Graphikintert. om 1950,- 
BMC-Monitor Typ 12 grün geätzte Röhre DM 540,- 
Zenit-Monitor ZUM 121 (Low cosn) DM 305,- 
16K Language Card DM 220,- 
80 Zeichenkarte m. 40/80 2. Softswitch DM 495,- 
CP/M Z-80 cru-karte DM 375,- 
Verbatim batalife Disketten 514" (10) DM 79,- 
Diskettenlaufwerke und weiteres Zubehör auf Anfrage! 

Alle Preise verstehen sich inkl. 13% MwSt. Versand erfolgt unfrei. 


Weitere Informationen gegen DM 1,50 in BM. 


3544 WALDECK-SACHSENHAUSEN WINTERHAGEN 2 
TELEFON 056 34-1724 TELEX 991160 AEW D 








Panzerkrieg 


TI-99/4A + Fernbedienungen 


Der Sinn dieses Zwei-Per- 
sonen-Spieles besteht da- 
rin, die gegnerischen Pan- 
zer abzuschießen und da- 
bei möglichst wenig Flur- 
und Sachschaden anzu- 
richten. Am Anfang stehen 
sich die Feinde gegenüber, 
getrennt durch Baum- und 
Häuserreihen. Die Häuser 
können zwar abgeschossen 
werden, bringen aber 300 
Minuspunkte ein. Will 
man ein Haus umfahren, 


wird der Panzer zerstört 
und der Gegner bekommt 
1000 Pluspunkte. Ebenso 
bei Abschuß. Die Bäume 
können weder abgeschos- 
sen noch umgefahren wer- 
den, ”wehren” sich jedoch 
mit Minuspunkten. 
Anm.: Die Zeilen 740-930 
verbinden, daß ein Panzer 
am Anfang von Dämmen 
umgeben und bewegungs- 
unfähig ist. Sollten die Ge- 
jedoch durch eine 


durchgehende Baumreihe 
getrennt sein, muß das 
Spiel mit ”CLEAR” abge- 


brochen und mit ”RUN” 
neu gestartet werden. 
Jürgen Hoppstädter 
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TI-UFO 


Ziel des Spieles ist es, ein 
Ufo um Hindernisse zu 
lenken. Die horizontale 


Steuerung erfolgt mit den 
Tasten A (nach links) und 
L (nach rechts). Wird keine 
Taste gedrückt, so bewegt 





sich das Ufo vertikal nach 
unten. Wird ein Hindernis 
senkrecht überfahren, so 
werden 2 Fehlerpunkte be- 
rechnet, beim waagrechten 
Überfahren 1 Fehlerpunkt. 
Ebenso werden beim waa- 
grechen Zurückfahren 
und beiErreichen des Bild- 
schirmrandes Fehlerpunk- 
te errechnet. 

Die ersten drei Runden be- 





stehen aus drei Durchgän- 
gen. Jede weitere Runde 
aus zwei Dwurchgängen. 
Der Schwierigkeitsgrad 
nimmt ständig zu. Werden 
in einer Runde weniger als 
8 Fehlerpunkte verursacht, 
so kommt man in die näch- 
ste Runde (Freispiel). Der 
Schwierigkeitsgrad kann in 
Zeile 170, der Schwierig- 
keitszuwachs in der Zeile 


770 verstellt werden. 
Runden 1-3: # $% 
Runden 4-8: ABCDE 
Runden 9 - : Zufalls- 
zeichen 

Nachteil des Programms: 
Das Ufo kann aus Zeit- 
gründen nicht gelöscht 
werden. Es bildet sich des- 
halb eine Ufoschlange. 


Hans-Peter Adrion 


a ee ee ee, en, een, ae in 


106 
118 
120 
130 
140 
150 


CALL SCREEN (14) 

CALL COLOR (1,16,14) 

Bu=1 

JU=® 

FE=® 

ZE=35 

REM HINDERNISSE PRO ZEIL 


PIT=5 

SC=6 

FOR T=3 TO BU STEP -1 

IF FE>=8 THEN 1050 

CALL CLEAR 

6=0 

RANDOMIZE 

GOSUB 560 

IF FE>=B THEN 1056 

CALL SOUND (400, 131,2,165 
‚2,196,2) 
27% REM x**UFO SETZEN 
280 SPAL=16 
290 CALL CHAR(130, "000000183 
L7ETEIY") 

6=6+1 

CALL GCHAR (GB, SPAL,WE) 

IF WE>33 THEN 330 ELSE 3 


CALL SOUND (100,-2,1) 
CALL COLOR (1,5,14) 
SC=SC+2 

CALL HCHAR (6,SFAL, 130) 
IF G=24 THEN 566 

CALL KEY (6,KEY,STATUS) 
IF STATUS=6 THEN 360 
IF KEY=65 THEN 466 

IF KEY=76 THEN 436 
GOTD 366 

SPFAL=SFAL+1 

IF SPAL=33 THEN 466 


450 GOTO 48% 


468 SPAL=SPAL-1 

476 IF SPAL=® THEN 430 

480 CALL GCHAR (B,SPAL,Q) 

490 IF 0>33 THEN 500 ELSE 53 
a 

500 CALL SOUND (106,-1,1) 

518 CALL COLOR(1,16,14) 

520 SC=SC+H1 

530 CALL HCHAR (6,SPAL, 136) 
540 GOTO 389 

556 REM **HINDERNISSE SETZEN 
560 7=3 

578 FOR M=1 TO 106 

586 FOR C=1 TO FIT 

596 X=INT (32*RND) +1 

606 IF Z>24 THEN 656 

616 CALL HCHAR(Z,X,ZE) 

620 NEXT C 

636 Z=1+T 

646 NEXT M 

656 RETURN 

666 CALL SOUND (25906, 131,3,17 
5,3,220,3) 

678 NEXT T 

686 CALL CLEAR 

690 FE=FE+1 

708 PRINT 

71@ REM **ASCII-CODE 

728 PRINT 

739 ZE=ZE+1 

740 PRINT 

75@ PRINT 

766 REM HINDERNISZUWACHS 
778 PIT=PIT+4 

786 REM AUSGABE 

79@ PRINT "FEHLERPUNKTE :"38 
ce 

809 JU=JU+1 

81@ IF JU=3 THEN 1020 

826 REM FREISPIEL SETZEN! 


830 
30 
840 


IF SC<=8 THEN 846 ELSE 9 


PRINT 
IF SC=6 THEN. 866 ELSE 87 


PRINT"OPTIMUM !" 

PRINT 

PRINT " ***FREISFIEL**%*" 

REM PAUSE 

FOR v=1 TO 806 

NEXT V 

G0TO 1806 

PRINT 

PRINT "C BY HOMECOMPUTER 
FRINT 
PRINT 

J/N)" 

978 CALL KEY(0,KEY,STATUS) 

98% IF STATUS=@ THEN 976 

998 IF KEY=74 THEN 128 

1006 STOP 

181&© REM ZEICHENSETZUNG AB 
RUNDE 8 

BU=2 

ZE=65 

GOTO 836 

CALL CLEAR 

TR=TR+50 

FOR OF=1 TO TR 

WA=INT (126*RND) +1 

WS=INT (22:RND) +3 

WD=INT (32#RND) +1 

CALL HCHAR (WS, WD, WA) 

NEXT OP 

6=8 

G0TO 268 

END 


"NOCH EIN SFIEL? ( 


1026 
1930 
1040 
1050 
1666 
10670 
1980 
1690 
1160 
1116 
1120 
1136 
1140 
1156 


| en en en ee 





Killersatellit 


Sobald das Spiel gestartet 
wurde, fragt der Computer ' 
nach der Wahl des Schiffes. 
Es stehen 4 Schiffe zur 


Wahl, die sich jedoch nur 
äußerlich unterscheiden. 

Die Steuerung des Schiffes 
erfolgt über die 4 Cursor- 


Tasten (E, S, D und X). 
Über die Space-Taste kön- 
nen Schüsse abgegeben 
werden. Nach jedem er- 
folgtem Abschuß erhöht 
sich die Schwierigkeit und 
Punktzahl der einzelnen 
Gegner. 

Außerdem wird nach je- 


dem Abschuß die eigene, 
sowie die Höchstpunktzahl 
angezeigt. 
Das Spiel ist beendet, 
wenn der Satellit das Schiff 
abgeschossen hat. Alles 
Andere ergibt sich beim 
Spielen. 

Ch. Bladoschewski 


10 REM RRRRHRRRRRRRRRRE 
20 REM * KILLERSATELLIT * 
30 REM * ENTWICKELT VON * 
40 REM * CH. BLADOSCHEWSKI * 
50 REM HRBBRBRBBRRRRRRRE 
106 CALL CLEAR 

110 CALL COLOR(1,2,2) 

120 CALL SCREEN(2) 

130 PRINT TAB(7)5 "KILLERSATE 
BETRIEBENE SENSE E ER8 
140 CALL CHAR (96, "00183SC7E7E 
ESC18") 

150 CALL CHAR(104, "00183C7E7 
E3C18") 

160 CALL HCHAR(10,6,194,21) 
170 CALL HCHAR(14,6,104,21) 
180 CALL VCHAR (19,6, 104,5) 
198 CALL VCHAR(10,26,104,5) 
200 FOR I=& TO 25 STEP 2 

21® CALL HCHAR(10,1,96) 

220 CALL HCHAR(14,1,96) 

230 NEXT I 

240 CALL HCHAR(12,6,96) 

250 CALL HCHAR(12,26,96) 

260 CALL COLOR(1,16,1) 

2780 CALL SCREEN (16) 

280 FOR I=1 TO 20 

298 FOR J=1 TO 2 

300 CALL COLOR(9,11,9) 

318 CALL COLOR(10,5,13) 

320 NEXT J 

330 CALL COLOR (9,5,9) 

349 CALL COLOR(10,11,13) 

350 NEXT I 

366 CALL COLOR(1,1,3) 

378 CALL SCREEN (3) 

389 REM 

390 SC=® 

400 CALL CLEAR 

418 RANDOMIZE 

420 M=2 

430 Pi=1 

449 U=.1 

450 10101038BABAFEB2" 
469 42425A665N4242" 

479 183SC7ESCSCIEFF" 

480 82828200828282" 

490 BE-DE:SESPE-DE-BE-PE-DE-T 
508 181818IC44FFFF&6" 
510 6$="42425ASA7EFFFFA2" 
520 INPUT "WELCHES SCHIFF WI 
LLST DU (1-4) ?":SCHIFF 

530 IF (SCHIFF<1)+(SCHIFF>4) 
<® THEN 520 

549 ON SCHIFF GOTO 649,580,6 
19,550 

550 1$=R$ 

569 Y$=E$ 

579 GOTO 570 

580 Z$=B$ 

598 Y$=E$ 

608 GOTD 679 

510 Y$=D$ 


620 


7$=6$ 


630 GOTO 558 


649 
[-=7] 
6608 
YA) 
[1:10] 
690 
700 
719 
720 
730 
749 
750 
768 
779 
780 
799 
ASAS: 
890 
810 
820 
830 
: 277) 
850 
859 
879 
880 
890 
909 
919 
929 
939 
80 

940 
959 
969 
970 
989 
999 
1006 
1910 
1020 
1030 
19040 
1050 
1068 
1070 
10808 
1098 
1190 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
12006 
1210 
1220 


REM 

Z$=A$ 

Y$=D$ 

X=10 

Y=10 

CALL CLEAR 

B=12 

[73 

CALL SCREEN (2) 

CALL COLOR(1,1,1) 

CALL COLOR(9,4,1) 

CALL COLOR(19,14,1) 

CALL COLOR(11,9,1) 

CALL COLOR(12,5,1) 

CALL CHAR (96, Y$) 

CALL CHAR (104, "SASASASAS 

ASA") 

CALL CHAR(112,C$) 

CALL CHAR(120, 2%) 

X=X- (INT (RND#2)-.5)) 

Y=Y- (INT ((RND*2)-.5)) 

IF X<1 THEN 1249 

IF X>24 THEN 1260 

IF Y<i THEN 1280 

IF Y>32 THEN 1398 

CALL KEY(0,K,S) 
K=32 THEN 1320 
K=83 THEN 1049 
K=68 THEN 1079 
K=88 THEN 1100 
K=69 THEN 1130 


B<1 THEN 1160 
B>24 THEN 1186 
A<1 THEN 1200 
A>32 THEN 1220 
CALL CLEAR 
CALL HCHAR (B,A, 120) 
CALL HCHAR(X,Y,112) 
IF X>21 THEN 820 
IF RND<U THEN 1580 
G60T0 820 
A=A-1 
CALL SOUND (-500,-6,0) 
GOTO 948 
A=A+1 
CALL ‘SOUND (-500,-6,0) 
G0TO 948 
B=B+1 
CALL SOUND (-500,-6,0) 
G60TD 948 
B=B-1 
CALL SOUND (-500,-6,0) 
G0TD 949 
1:50:57 3 
G0TO 989 
B=B-24 
GOTO 980 
A=A+32 
G0TO 9780 
A=A-32 


12538 GOTD 980 

1249 X=X+24 

1250 GOTO 880 

1260 X=X-24 

1278 GOTO 880 

1280 Y=Y+32 

1290 GOTD 88% 

1300 Y=Y-32 

1310 GOT0880 

1320 FOR P=B-i TO B-M STEP - 

1 

1330 CALL SOUND (190,-5,0) 

1340 CALL GCHAR(P,A,L) 

1350 IF L=112 THEN 1390 

1360 CALL HCHAR(P,A,96) 

13780 NEXT P 

1380 GOTO 980 

1390 CALL CLEAR 

1408 PRINT "GEGNER ZERSTOERT 

FALSE SIRL 

1418 SC=SC+Pi 

1420 IF HS>=SC THEN 1498 

1430 HS=SC 

1448 FOR SI=1 TO 5 

1450 FOR SJ=-3 TO -1 

1468 CALL SOUND(100,5J,0) 

1470 NEXT SJ 

1480 NEXT SI 

1498 PRINT "HIGHSCORE: "5HS 

1508 PRINT "PUNKTZAHL: "535C3 
BuHer 

1518 CALL COLOR(1,3,3) 

1528 CALL SCREEN (3) 

1530 Pi=P1+1 

1540 U=U+.02 

1550 FOR I=1 TO 1000 

1566 NEXT I 

1570 GOTO 549 

15860 FOR P=X+1 TO X+3 

1598 CALL SOUND(100,-3,2) 

1668 CALL GCHAR(P,Y,L) 

1618 IF L=120 THEN 1550 

1628 CALL HCHAR(P,Y,104) 

16530 NEXT P 

1640 GDTO 820 

1656 CALL CLEAR 

1668 PRINT TAB(5);"DU WURDES 

T ZERSTOERT" 

GAME DVER": 

16870 PRINT "HIGHSCORE: "5HS 

1680 PRINT "PUNKTZAHL:= "3SCa 

1699 CALL COLOR(1,3,3) 

1798 CALL SCREEN (3) 

1718 PRINT "WILLST DU NOCH E 

INMAL SPIE- LEN? DRUECKE <J> 

<N>" 

1720 CALL KEY(0,K,S) 

1730 IF S=® THEN 1720 

1748 IF K=ASC("J")THEN 380 

1750 IF K<>ASCC"N")THEN 1710 

1768 END 





Eidechse 
Sharp MZ-80K 


Das Programm EIDECH- 
SE wurde auf einem Sharp 
MZ-80 K geschrieben und 
ist ungefähr 5,5 KB lang. 
Die Grundidee ist einem 
Buch entnommen und 
wurde von mir erweitert 
und an den MZ-80 K ange- 
paßt. 

Zum Verlauf des Spieles 
sei gesagt, es ist ein sehr 
einfaches Spiel. 

Der Spieler soll versuchen, 
mittels einer beliebigen 


FRINT"BEGON KWAFIL 
MUSIC"RFRFRF" 


FRINT"E 
FRINT" 
PRINT" 
a PRINT" 
FRINT" 
a FRIMT" 
PRINT" 
FRINT" 
FRINT" 


Taste die Fliege zu fangen. 
Auf Tastendruck schnellt 
die Zunge der Eidechse 
nach oben und mit etwas 
Glück oder Geschick trifft 
er die Fliege. 

Nach einer gewissen Tref- 
ferquote gibt es einen Zeit- 
bonus. Die Zeit, Treffer 
und Durchgänge werden 
dem Spieler auf dem Bild- 
schirm angezeigt. 


Egon Kwapil 


USRCBENE NEXTA: FRINT" 


PRINT" 
FRINT" 
a PRINT" 
a FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
a PRINT" 
FRINT" 
PRINT" 
FRINT" 


E 


Die Eidechse mit der Fliege links von der Sonne 


HAMBURG E35. 1283" 
F IDBECHS 


1 " H MUSIC"RF" 
":MUSIC"R7" 
"e MUSIC" RE? " 
"= : MUS 1E% Rr " 
". ML ISIC"R?" 
". ML IS IC"RET" 
te pl ISIC"RT" 


un "EMUSIC"RF" 


": Kae A=2T0255:FOKE4514>A 


ENUSIC"RT" 
":MUSIC"R?" 
" H MUS I G "RT " 
" H MUS I (Bi " R7? " 
"= : MUS T E " FR?’ I} 
"SMUSIC"R?" 
u H Mu ISIC"RFP" 
" H MUS I C " R7? " 
":MUSIC"R?2 
" H MUS I E " R? " 
":MUSIC"R?" 
":MUSIC"R?" 
":MUSIC"R?" 


":MUSIC"R?" 


A&=""CRI-DRTTERSDRST — LER” DRRLERTTCRILDRSTERTLERSTORSLORICH" 
a B&="ERTTDRILERSTDRICDRSTERSDRFTERSERSTDRISERSTERS-DRSTORSTCS" 
C&="CRIDRTERTDRILERICRS DRSLERSLCRSLORTLERS-ERSLDRI-DRILCH" 


3 TEMFOT 
FRINT"E 
FRINT" 


: MUSICHE E$» A$> CH 


EIBECHSE" 
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Chiffrier/ 
Dechiffrier- 
Programm 


TI 99/4A + Drucker 


Eingabe 

Das Pgm fragt zunächst, ob 
dechiffriert werden soll, - 
dann nur DE eingeben 
(wird im Pgm auch gesagt) 
Ansonsten verlangt es die 
Eingabe einer vierstelligen 
Codezahl (z.B. Datum in 
der Form 3103 = 31.03.) 
Diese Codezahl muß auch 
dem Entschlüssler be- 
kannt sein. 

Das Pgm nimmt nur Zah- 
len an und zwar nur eine! 
Es sind also alle vier ein- 


100 CALL CLEAR 
110 IIM E 
ü DIM E 

INPUT "Zun 

: DER 


zeln einzugeben. Danach 
wird die Eingabe einer zu 
verschlüsselnden Zeile 
verlangt. Das Pgm nimmt 
nur 28 Zeichen an und sagt 
an, daß der Zeilenrest 
ggflls mit Punkten zu fül- 
len ist. Die Eingabe ge- 
schieht ganz normal und 
der Drucker druckt sie ver- 
schlüsselt aus. So kann Zei- 
le für Zeile eingegeben 
werden. Die letzte Eingabe 
soll eine @ sein, damit das 
Pgm erkennt, daß die Ein- 


CALL SCREEN (15 


1 DECHIFFEIEFEN DE 


IF DEF="DE" THE 





gabe abgeschlossen ist. 
Das Dechiffrieren ge- 
schieht genauso, nur daß 
hier eben der chiffrierte 
Text eingegeben wird, der 
dann Zeile für Zeile dechif- 
friert herauskommt. 
Interessant und daher 
kaum zu „knacken“ ist der 
Algorhitmus des Pgms hin- 
sichtlich der Verschlüsse- 
lung. Manchmal ist der 
gleiche Buchstabe von 
gleicher Bedeutung, 
manchmal haben 2 gleiche 
Buchstaben eine völlig an- 
dere Bedeutung und 
manchmal werden für ei- 
nen Buchstaben im laufe 
eines längeren Textes bis 
zu 50 andere eingesetzt. 


Programmbeispiel: 
Eingegeben wurde zeilen- 
weise 


DIES IST EIN CHIF- 
FRIERTEST:: 
AUFGENOMMEN AM 


31.03.83 FÜR DIE ZEIT- 
SCHRIFT 2 HOMECOM- 
PUTER 


Da die Eingabe automa- 
tisch auf 28 Zeichen be- 
schränkt ist, können Sieam 
Zeilenende jeweils auf 
dem . stehenbleiben, der 
Computer meldet sich mit 
einem BEEP. 

So sah der Ausdruck aus: 








und als der vorige Aus- 
druck Zeichen für Zeichen, 
wiederum zeilenweise 
nach vorheriger Eingabe 
der Codeziffern eingege- 
ben wurde, kam folgender 
Ausdruck zustande: 








“ ‚DUTPUT 


JETZT EINZELN DIE 
EIN:" 
YALIDATE<DISITIS 


»: FEINT #1:EF 


BEER 
* SALTDATE (DIGIT:3 3 PRINT "GIE „ETET EINZELN DIE 

4 CODEZIFFERN EI 
“ SALIDATE EDISITHE 1 BEEF YWALIDATE EDISITHE 


TE<DIGIT>E BEEF YALIDATE CDISITHE 


LE EINGEBEN 
'UNETEN FUELLE 


BEEF YALIDATE CDIGITIE 


BEEP VALIDATE<DIGITIS 
Ei 

HEN END 420 FRINT 

; N":AS 

430 ACCEPT BEEP SIZE(2E9 :A$ 

440 IF AS="0" THEN END 

450 FOR I=1 TO 28 

460 BCII=ASC(SEGE CAS I» 13) 

470 NEXT I 

420 FOR 

SBeID#ll 33 

430 FOR 

=B<Id+X 


"GIE DEN ZEILENTE#T EI 


STEP 4 :: 
STEP 4 :: B<D 
3 STEP 4 :: 


STEF 4 :: BiD 





4 THEN B{I}= 


ı 22 BEL 


=32 


In=CHREC 





Danglisie 


TI 99/4A + Drucker 


Aufgrund einer Wahl oder 
eines Wettbewerbes soll 
im Verein z.B. eine Rangli- 
ste der Ergebnisse aufge- 
stellt werden. 


Die Verarbeitungszeit für 
100 Teilnehmer beträgt ca. 
5 min. 


Das Programm fragt in ei- 








ner Dreiergruppe für jeden 
Teilnehmer: 
LISTENPLATZ 

NAME 

ERGEBNIS (in Punkten 
oder Stimmen) 

Sind die Angaben für alle 
Teilnehmer eingegeben, 
erwartet das Pgm zum Ab- 
schluß unter LISTEN- 
PLATZ die Eingabe einer® 


aus NEST I 
DPEN #12" TP.E" 
FOR I=1 TO 23 


SOTD 430 
500 END 


»DUITFUT 
:: FEINT #1:BE 





und beginnt die Verarbei- 
tung. 


Ausgabeform: 

1. (5.) Mayerhofer = 189 
dabei ist die erste Zahl der 
Ranglistenplatz die in ( ) 
stehende der bisherige Lis- 
tenplatz und nach dem Na- 
men folgt das Ergebnis aus 
den Punkten/Stimmen. 
Das Pgm stoppt - zur Ver- 
lesung der Ergebnisse - au- 
tomatisch nach der Ausga- 
be von jeweils 5 Ergebnis- 
sen und kann dann durch 
Drücken irgendeiner Taste 


FOR an EN. 


. THEN 
IF HJ= HL THEN 
IF ACHJN 
HJ=HJ+1 


£HI) 


+23 TO 1 


fortgesetzt werden. 

Es erfolgt die Ausgabe ei- 
nes kompletten Druckpro- 
tokolls. 

Falls mehr als 99 Teilneh- 
mer erfaßt werden sollen, 
sind die DIM-Statements 
in den Zeilen 110- 120-130 
entsprechend der Teilneh- 
merzahl +1 zu erhöhen. 
Das Programm läuft auf 
dem TI 99/4 A mit Exten- 
ded-Basic-Modul + Druk- 
ker. 


Herbert May 


STEP -1 


370 


siü 


<ASHI+1> THEN 510 


THEN 570 





Starship VC-20 





HC-Invaders 


| Zum ersten populären 
Computer-Videospiel wur- 
den weltweit die Space-In- 
vaders, kleine Monster aus 
dem All, die versuchen, die 
Erde zu erobern. 

| Sie haben es geschafft; kei- 
ne Frage! 


MISHBEBRE: 
|. 





Homecomputer bringt Ih- 
nen für Ihren VC-20, damit 
Sie Gelegenheit erhalten, 
den Editor/ Assembler zu 
testen, eine eigene Version 
der bekannten Invaders ins 
Haus. 


BBBS&B 








Instruktionen: 


T: 
2 
3: 
4 
3: 


Editor eingeladen 

. INVADERS (Quellprogramm) eingeben 

Assembler einladen 

. POKE 55,254: POKE 56,55: RUN 

POKE 43,254: POKE 44,55: POKE 45,64: POKE 
46,63: POKE 56,64: POKE 55,0 

SAVE „INVADERS“ (MASCHINENPROGRAMM) 
. POKE 43,1: POKE 44,28: POKE 168,0: 

LOAD „ZEICHENDATAS“ 

RUN 

. LOAD „INVADERS“ (BASIC-PGM) 

. RUN 


=Son@na 


1 
1 


Wenn alles auf Kassette gespeichert ist, geht man vor wie 
folgt: POKE 43,254: POKE 44,55: „LOAD“ (Maschinen- 
programm). 

LOAD „INVADERS“ (Maschinenprogramm) fahre fort 
wie oben ab 7. 
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24 Homecomputer 


Editor für 
6502-Systeme 


Seine Reihe „Programmieren in 
Maschinensprache“ setzt Home- 
computer diesesmal fort mit dem 


Sie haben nun eine Programmse- 
rie, mit der Sie Programme und 
Unterprogramme in der Assem- 
blersprache für alle Microcompu- 
ter mit dem 6502-Prozessor 


Editor. 


Obwohl die Reihe speziell 
für den VC-20 und VC-64 
begonnen wurde, sind die 
Programme fast ohne Um- 
schreiben auch für die 
CBMs, den Apple, den 
Atari, usw. verwendbar. 
Lediglich die Bildschirm- 
Befehle und Tastatur-PO- 
KEs müssen angepaßt wer- 
den bzw. können einfach 
ignoriert werden. 


Der Assembler, der in der 
April-Ausgabe abgedruckt 
wurde, hat früher als vorge- 
sehen schon weitere Zu- 
satzfunktionen erhalten, 
denen in den nächsten Mo- 
naten von Zeit zu Zeit wei- 
tere folgen werden. 


Auch der Disassembler 
aus Heft 3, wo übrigens für 
den VC-20 zwei Zeilen 
beim Druck verlorenge- 
gangen sind, wurde ent- 
sprechend angepaßt. 

Man beginnt mit dem Ein- 
laden des Editors. Nach 
dem Starten erhält man ei- 
ne Tabelle mit den Befeh- 
len, die der Editor kennt 
und den möglichen Para- 
metern. 


Es genügt, wenn die inver- 
sen Buchstaben eingege- 
ben werden und auch 
Blanks sind optional. Man 
kann aber auch den gesam- 
ten Befehl eingeben oder 
Teile davon, sofern die 
signifikanten Buchstaben 
am Anfang enthalten sind. 








+59 Pi 


".189 


il 


1 
1 
1 


schreiben können. 


RINT"TIEHOMECOMPUTER-ASSEMBLERM 
READOS : READAS : OE=0F+A8 : READAF :OE=0F+AF:DIMAFT 
READAIFCI> NEXT 


INFLT"FILENAME" SF#: IFDITHENF: 
DFENI.» 1+CTANDDI> 

-1THENASCLCI=LEFTFCLF. I-1 ‘ LC+ 
FRINTRIGHTEC" i > Be 
OSLIBAREEN 


IFCBAANDSTISOTHENSIG 


2 ELOSEI 


‚ran 
+iaid 


1035 
1834 
1108 
1119 


IFHOTDITHENGOS 
OPEN1, 14CTANDDI $:F=-1:2=8 


IFMIDSCLE.1.19C>" 


‚1128 60 


1150 


IFOI-57THEN1108 

K=B : FORP=SPETOP+L-1:RF="" FORK=K+LTOLENGLEI:T 
IFI£C>" , " THENAF=AF+IS:NEXT 
GOSUB5998 : POKEP,S:NEXTP:GOTDI1AS 

At=MIDECLE$, I+1,3):L=9 


FORJ=iT0175STEP3: IFAFCHMIDECOE, I, 3) THENNEXT !FRINT"OPCOTDE ERROR IN"Z:GOT0298 


OI=CI-1I/3:LE=MIDECLE, 1457 

IFO SANDNOTFTHENAF=SLE : GOSUBSOII ACLC-1)=5 
IFc 
IFOI=SSTHENAF=LE$ :GOSURSQRR: PC=3 
IFOI>SSTHENRETURN 
IFOI>21THENAF=L#:G0T04135 
IFLEN(LEI=BORLE="A"THENBE="A" :GOTO4149 


2 At="":B$="":FORISITOLENALEI:JESMIDECLE, 1, 1D 


IFIJE="#"ORJE=" C" THENBF=BF+JE:GOT04130 
IFI£=")"ORIt=" "THEN4139 


L=-(DI>219-<01>469-£01>54> : IFLTHENRETURN 


8 FORAI=OTO?: IFBECHAIFCAI>THENNEXT :GOTO1FRSGO 
L=1-<AI>83-<AI>3)::IFCOI=120RQNI=iS>ANDAI=4THENAI=7 


IFCZtAIANDADZCOIII=OTHENFIIB 
IFAI<SETHENRETURN 
GOSURS29B : IFE=1OROI=7THENL=3: RETURN 


a L=2-(53255 


IFAI=7THENIFL=3AND<GI=1B0RDI=12) THEN1F999 
RETURN 


Saa),ACSEM) 


"THENNEXT 
1 
SDMIDFCLE, 141) 


"THENNEXT 


IS6ANDSCA) 


£=MIDF(LE,K,1> 


HENL=1:FORJ=1TOLENCLEI :L=L-CMIDECLE, J, 1d="," 3 NEXT 





«5892 FORI=1TOLENCAFI:J 


A: RETURN 


IFI=45THENSAFSMIDECAF, IH ID EAF=LEFTFCAF, 1-19: GOSLUBSB4R: 


Sc 
IFI=43THENSAESMIDECAE, IH 1) :AF=LEFTSCHE, I-1)GOSUBIRAR: 5 


“MINECAF,I,1D) 


HENGa3Q 
JESMIDECAE. I, 1) :S-1CHSAVALCIEI+CASCCITEI-SSANDIEI"@") :NEKT:R 


 AF=SAE : GOSUBSQ4O 


:AF=SA& : GOSUBSQ4B 


ZETLURH 


IJ=2TOLENCAEI S=SHS+HYALCMIDECAF, Js 199 : NEXT RETURN 


CH 


+5 


[A] 


RM 
>THENS=ACII RETURN 


RLSRIMPADCRORS 
TIPHACLIRTSPLAS 


NEBEOJSRERUDFRORG 


=,79,68.101,192,13 


FDECCPXSECING 
TATTAKELYTSKINTFDEXRCLDINXN 


»166,196,197,198,229, 


»194,165,170,184,196,2 


2,1934,66,222,2 


: IFG$="]" THENCLR:LOAD"EDITOR",S 


ar 


INFUTAF IA: A"+AF: GOSUBEASE: PRINTS: COTOGSABAG 


RERDT. 


LOAD" DISASSEMBLER" , 


ES DRUECKEN!”" 


Die Zeilennummern mit Punkt wurden gegenüber der Heft 4/83-Version geändert. 
Für Kassettenbetrieb entfallen in den Zeilen 20005 und 20010 die letzten beiden Zei- 
chen. 


ADD 

Um ein Assembler-Pro- 
gramm einzugeben, be- 
nutzt man den Befehl 
A(DD) (Anm.: die Buch- 
staben in Klammern sind 
optional). 

Dann erscheint eine “1“ 
mit einem inversen Blank 
dahinter. Dies ist der Cur- 
sor, während die “1* die 
laufende Zeilennummer 
des Befehls ist. Wenn man 
einmal einen Befehl unter 
einer bestimmten Zeilen- 
nummer eingegeben hat, 
so heißt dies nicht, daß zu 
dieser Zeilennummer im- 
mer der eingegebene Be- 
fehl gehört, denn man 
kann auch noch nachträg- 
lich Befehle einfügen, und 
dabei ändern sich dann 
entsprechend die Num- 
mern der folgenden Befeh- 
le. 








ADD heißt immer Anhän- 
gen von weiteren Befeh- 
len. Wenn der Speicher 
leer ist, dann lautet die 
„nächste“ Zeile 1,wenn be- 
reits 43 Zeilen vorhanden 
sind, dann ist 44 die Zeile, 
in die nach ADD geschrie- 
ben wird. 


INSERT 

Hat man irgendwo im As- 
sembler-Listing einen oder 
mehrere Befehle verges- 
sen und nachzutragen, so 
benutzt man den Befehl 
I(NSERT). Und zwar gibt 
man nach dem Befehlswort 
die Zeilennummer an, hin- 
ter der die Befehle einge- 
schoben werden sollen. 
Fehlen Befehle direkt am 
Anfang, so wird nur der Be- 
fehl ohne Parameter einge- 
geben und die Zeilen wer- 
den solange eingeschoben, 


bis eine neue Editoranwei- 
sung dieses beendet. 


DELETE 

Sind Assembler-Zeilen 
überflüssig geworden, so 
kann man sie mit D(ELE- 
TE) entfernen. Wie bei 
dem BASIC-Befehl LIST 
kann man hinter dem De- 
lete-Befehl entweder nur 
eine Zeilennummer einge- 
ben, wenn man nur eine 
Zeile löschen will; oder 
z.B. “D-5“ eingeben, wenn 
man die ersten 5 Zeilen lö- 
schen möchte; oder “D5-“, 
wenn alle Zeilen ab Num- 
mer 5 gelöscht werden sol- 
len; oder einfach “*D“, um 
sämtliche Zeilen zu lö- 
schen. 

Damit man nicht aus Ver- 
sehen Zeilen entfernt, die 
man noch benötigt, wird 
zur Sicherheit noch einmal 








gefragt,ob man auch sicher 
ist. Die Frage (in Englisch) 
taucht immer dann auf, 
wenn mehr als 10 Zeilen 
gelöscht werden sollen. 


LIST 

Auch bei L(IST) ist die Pa- 
rameterübergabe wie im 
BASIC. Wird beim Listen 
die Taste “S“ gedrückt, so 
stoppt der Editor und er- 
wartet zur Fortsetzung ei- 
nen weiteren Tastendruck. 
Drücken der Taste *Q* 
beendet das Listen bevor 
die letzte Zeilennummer 
erreicht ist. 


EDIT 

Stellt man fest, daß eine 
Zeile falsch eingegeben 
wurde, so kann sie mit dem 
E(DIT)-Befehl korrigiert 
werden. Die Parameterü- 
bergabe ist wie unter DE- 
LETE beschrieben. Der 
Editor listet die zu korrigie- 
rende Zeile und setzt den 
Cursor an den Zeilenan 
fang. 

Diesmal ist es ein „echter 
Cursor“ und es zählt, wie 
vom CBM gewohnt, alles, 
was in der oder den ent- 
sprechenden Bildschirm- 
zeilen steht. Deshalb kann 
man nach Durchführen der 
Korrektur sofort “RE- 
TURN“ drücken, und auch 
der Rest nach dem Cursor 
wird übernommen. Oder 
nur “RETURN“, wenn in 
der Zeile nichts geändert 
werden soll. 

Auch bei dem EDIT-Be- 
fehl kann man einfach eine 
neue Editor-Anweisung 
eingeben, wenn man auf- 
hören will, sofern man den 
Rest der Zeile (oder Zei- 
len) mit Spaces löscht. 


COPY 

Wenn man einen Block, 
den man schon einmal ein- 
gegeben hat, an einerande- 
ren Stelle haben möchte, 
so verwendet man den Be- 
fehl C(OPY). Direkt hinter 
dem Befehl gibt man aber 
noch keine Parameter an. 
Der Editor fragt diese näm- 





89 FPOKE45.3 


=: FÜKE46.31 


sg CLR 


198 
118 
128 
zuEı 
218 
215 


DIMAF<CSRR) 

L&=" ":FORI=1T05:L#=LEFTELLS+LF, Zi: 
PRINTTAR“E>" HOMECOMPUTER 
FRIHT'TIHOMELOMFUTER EDITOR 
FRIHT'RISAFBPEND [A 

PRINT RISSRRYE [AIL-ILE]I 
FRINT'IIMBERIFF LAIL-ILEI 


:NEKT:LF=L£+"7 


25 PRINT BISRRLD 


FEIMT'IMIAISHSERT [A] 


5 FRINT'"MBERDIT [AIL-ILEI 


FRIHT'BMISTWELETE CAIL-ILEI 
FEIMT'MIAWIST CAIL-ILEI 
FRIHT"RIASRIF'r 
FEIHT'SGBLUIT > ASS + DISASS 

IFB=1URB= SERB-STHENAE= GOTOZRE 

INPUT” KIBEFEHL u 

FRINT:BESTORE: FORDe 1TOIS READES: IFLEFTFÜRF LENCBEI CH 


B&£THEHNEHT 


Sıo 
feel] 
+ 
+8 
428 
430 


IFEZFZAHDELFTHENGOSNBIRRE 
OHBGITOHRE. SO. DAR. FR. Sa, 
REM AFFEHD 
GOSNJERERE 
IHFUT#L.FIE 
HTHEHFRESSHTOHNZ+ISTER- I: REF 
12+l "he H+L: NEE IFLE4ANDST? 


1200. 1202, Dad. lee. Si, a 


;F&:PRINT"C 
"THEMSLE 


Su" BOTOSEE 


FRINHTRLCHRENS 


E :MEHT:CLOSEI 
MELER. EINLADEN 7 


st=" I" THEHCLROLORDTDIE 
SOTIZAR 
REM ADD 
Geh: FRIHT"I 
IEi4 


GOTEEEE 
DELETE 

' Be IFDFIATHEHFRIHT" 
Ri ="M"THEHZS BO 





m WAITISE 


lich der Reihe nach ab. Er 
beginnt mit dem Bereich 
der zu kopierenden Zeilen. 
Die Zeilennummern wer- 
den wie bei DELETE, 
LIST oder EDIT behan- 
delt. 

Danach erfolgt nach An- 
weisung die Eingabe der 
Zeilennummer, hinter der 
die Zeilen eingeschoben 
werden sollen (fast wie bei 
INSERT). 

Man kann den Block näm- 
lich nicht nur anhängen, 
sondern an jede Stelle in- 
nerhalb des Assembler- 
Listings einfügen, sogar in- 
nerhalb des Blocks selbst. 
Lediglich wenn man den 
Block direktan den Anfang 
kopieren möchte muß man 
sich eines kleinen Tricks 
behelfen. Man fügt dann 
nämlich vorher einfach ei- 
ne neue Zeile l ein, kopiert 
den Block (Vorsicht! Die 
zu kopierenden Zeilen- 
nummern haben sich jetzt 
um 1 verschoben!) hinter 
die Zeile 1 und löscht die- 
selbe mit DI. Der zu kopie- 
rende Block steht jetzt am 
Anfang. 


APPEND SAVE VERIFY 
Drei Befehle dienen dem 
Laden, Retten und Verifi- 
zieren von Assembler-Fi- 
les auf Diskette oder Kas- 
sette. 

Der Befehl LOAD, den 
man in diesem Zusam- 
menhang erwartet gibt es 
nicht. Ihn ersetzt der Be- 
fehl AP(PEND), der einen 
Parameter haben kann; die 
Zeilennummer, hinter der 
das File vom Datenträger 
in das im RAM befindliche 
Programm geladen werden 
soll. 

Ist der Speicher leer, so 
wird sich nach APPEND 
nur das Programm, das zu- 
geladen wurde, im Spei- 
cher befinden. 

APPEND ohne Parameter 
hängt das Programm an das 
im Speicher befindliche 
an! 

Um das Assembler-Listing 
auf Kassette oder Disk auf- 





zunehmen, wird der Befehl 
S(AVE) benutzt. Ohne Pa- 
rameter speichert man das 
gesamte, im Speicher be- 
findliche Programm; und 
mit entsprechenden Para- 
metern (wie oben unter 
DELETE beschrieben) 
können Teile des Pro- 
gramms übertragen wer- 
den. 

Um sich zu vergewissern, 
daß alles richtig gespei- 
chert wurde, kann mit 
V(ERIFY) die Korrektheit 
der Aufnahme überprüft 
werden. Dabei ist zu 
beachten, daß wenn Para- 
meter übergeben wurden, 
diese identisch sind mit de- 
nen, die beim Kommando 
SAVE verwendet wurden. 


GOTO 280 

Hat man aus irgend einem 
Grunde Stop oder Break 
gedrückt, so kann mit GO- 
TO 280 der Programmab- 
lauffortgesetzt werden, oh- 
ne daß das Assembler-Lis- 
ting gelöscht wird (was ja 
nach RUN der Fall wäre). 


QUIT 

QUAIT) sorgt als Befehls- 
eingabe dafür, daß As- 
sembler oder Disassem- 
bler ausgeführt werden. 
Achtung! Zuerst muß das 
Assembler-Programm im 
Speicher auf einen Daten- 
träger (Kassette oder Dis- 
kette) aufgenommen wer- 
den! Erst dann kann das 
Programm assembliert 
werden. 

Ist der Assembler nachge- 
laden, dann werden wie 
vom Bildschirm her befoh- 
len, die Kassette zurückge- 
spult und die weiteren Be- 
fehle befolgt. Dies entfällt 
bei Diskettenbetrieb, wo 
lediglich darauf zu achten 
ist, daß sich Assembler 
und Assembler-Programm 
auf der selben Diskette be- 
finden. 





are 
uoR 


REM EDIT 


FORC=HITONZ: PRINT" HMTTT :S=FEEKGBI4)  AFSAFRLCH  GOSURASAR 


FRINT"TI”;:IFFEEKCZIi45 5 
Age" SYSHAS2R 
FORI=515T06508 : IFPEERCISTHENAFSAF+ÜHRELPEEK ID CHEKT 
GOSUB4 RG: IFBFTHENSEG 

AFCC}=Ag:HERTE:GOTOI2SR 

REM COPY 

INFUT"COPT-BEREICH" SA# 

GISUBSBGE: INPUT"MOHIH KZEILENNUMMER)" ST 
IFCZNTHENGSH 
T=H2-H1+1 
IFCZHTHENFORI 


STHEHIBIS 


+iSTEP-IAFCIHDI=AEL]) 


:NEKT 


FORISCHLTOCHD: Ati II=ArcHid: IFNISCTHENNI=NI+D 
Ni=Ni+1:NERT 

GOTIZSA 

REM INSERT 

G=H1 

SOSUE4RAG: IFBFTHENFSE 
FRINTLE:SDEUB4SAE 

FORI=HNTO STEP-L:AECI+I=AELI) NE 
"+STREC 


HTLELEFTELAF. IL RTLEFTFCHMID: 


: IF J=4STHEND=L 


:WALTI 


READT. 


Für Kassettenbetrieb entfallen in den Zeilen 560 und 590 die letzten beiden Zeichen. 





SYNTAX und Features 
Gibt man direkt hinter ei- 
ner Zeilennummer einen 
Editorbefehl ein, so wird 
dieser ausgeführt - und 
nicht in die Zeile übernom- 
men! 

Alles andere, was direkt 
hinter einer Zeilennum- 
mer steht und nach einem 
Blank mit weiteren Einga- 
ben versehen ist, wird in 
die entsprechende Zeile 
geschrieben. 

Labels werden direkt hin- 
ter die Zeilennummer ge- 
schrieben und dürfen kei- 
ne Blanks enthalten. Ein 
Blank, das einem Label 
folgt, bedeutet dem Editor, 
daß nun ein Mnemonic- 
Befehl folgt. (Mnemonics, 
soviel sei für Anfänger ge- 
sagt, nennt man die Code- 
wörter wie z.B. LDA (Load 
Akku), STA (Store Akku), 
TAX (Tranfer Akku to X- 
Register), usw. - unser 
6502-Lehrgang, der in Kür- 
ze beginnt und zu dessen 





Zweck die Programme vor- 
gestellt wurden, wird darü- 
ber Auskunft geben) 
Folgt direkt hinter der Zei- 
lennummer ein Blank 
dann gehört hinter dieses 
Blank ein Mnemonic. 
Dahinter gehört, wenn es 
sich um einen Mehrbyte- 
Befehl handelt, wieder ein 
Blank und dann ein Ope- 
rand. 

Ein Semikolon wird Kom- 
mentaren, die zur besseren 
Verständlichkeit des Pro- 
gramms einer Programm- 
zeile beigefügt werden 
können, vorangestellt. 
Der Assembler versteht 
Hex- und Dezimalzahlen. 
Hexzahlen haben ein Dol- 
larzeichen vorangestellt. 
Direkte und relative 
Sprünge zu Labels und zu 
labelabhängigen Punkten 
sind möglich. Z.B.: 

JSR LABEL 

oder 

JSR LABEL+86 

BNE MARKESS-9 





Auch Sprünge relativ zum 
Programm-Counter sind 
gestattet. Das Sternchen 
“=“ ist in diesem Fall das 
Symbol für den Programm- 
Counter. Beispiel: BNE. -3 
Die bisher zusätzlich vom 
Assembler verstandenen 
Mnemonics sind: 

ORG Programmbeginn 
EQU (Equate) 

DFB (Define Byte) 

ORG hat kein Label und 
muß eine Hex- oder Dezi- 
malzahl im Operandenfeld 
haben. 





Vor EQU muß sich ein La- 
bel befinden und dahinter 
eine entsprechende Hex-, 
Dual- oder Dezimalzahl. 
Vor DFB kann ein Label 
stehen. Dem Mnemonic 
folgen ein oder mehrere 
Hex-Dual- oder Dezimal- 
zahlen. Mehrere Zahlen 
werden durch Kommata 
getrennt. 

Eine weitere nachträglich 
eingeführte Bequemlich- 
keit ist, daß mit den Grö- 
Ber-als-und  Kleiner-als- 
Zeichen Labels in High- 
und Low-Byte zerlegt wer- 
den können. 

2.B: 


1ADRESSE EQU 34356 
2 LDA #<ADRESSE 


STA 


HIGHBYTE 


3 
4 LDA #>ADRESSE 
5 


STA 


Wie bereits angesprochen, 
werden weitere „Bequem- 
lichkeiten“, nützliche Be- 
fehle und Hilfsprogramme 


Änderungen gegenüber Disassembler Programm aus Heft 3/83 


Zeile 602 entfällt 
Zeile 1020 entfällt 


IFA 


LOWBYTE 


zum Programmieren in As- 
sembler (und somit in Ma- 
schinencode) folgen. 


THENR=AHT 


WIRT: A=A+4s: IFAFSTTHENAERHT 


:PI=FEEK<CPCH 


2+2: 50701220 


EEGOTOLZ4E 


PRINT" 


INNE PFÜ=FC+H3: RETURN 


Für Kassettenbetrieb entfallen in Zeile 600 die letzten zwei Zeichen. 





Labyrinth in 3,5 K! 


Wieviele Leser von Home- 
computer uns angerufen 
haben, haben wir nicht ge- 
zählt, aber wenn es um das 
Labyrinth für den VC-20 
ging, dann lag die Antwort 
auf der Hand, keine Spei- 
chererweiterung vorhan- 


den, Programm also nicht 
lauffähig. Wir haben uns 
deshalb bemüht (vielen 
Anrufern habe ich es ver- 
sprochen), falls es über- 
haupt möglich ist, das Pro- 
gramm für den VC-20 ohne 
Erweiterung umzuschrei- 


„Ea:Fik 


ben, es zum Laufen zu 
bringen. 

Am Ende konnte durch 
Renummerierung, Dimen- 
sionierung, Streichen der 
Texte und Poken eines 
neuen RAMTOPS das Pro- 
gramm so weit gekürzt wer- 


GEHEN": 


den, daß es inclusive Varia- 
blen fast genau soviel Platz 
verbraucht, wie ohne Spei- 
chererweiterung zur Verfü- 
gung stehen. 





42 
43 
44 
45 
4 
47 
48 


HM=r: IFAE="R" THENHMeNM+I 
IFAg="M" THEHGÜSUBS 
IFA£="L"THEHHM=NI+H3 
IFHM=MTHEH33 
THEHHM=EHM-4EIHT EHI 
4 FRIHT'DREHEH" 
Delle Ma: BRTERKAIRS" DPe=ri ler i: MRelti 


BR:G0T033 





"EOTIST 





2 
$ 
x 


IBM 
EERSONAL ea 
COMPUTER 3436 Hessisch I 


6 Monate Garantie 


Alle genannten Preise incl. Mehrw. 


LEPPPIIIIIIOOPHHRT 


DPI RH 





Systemeinheit 64 KB 
+ Disklaufwerk 320 KB 659%,-- 
Tastatur 870,-- | 
Bildschirm 1110,-- 
Adapter für Drucker | 
und Bildschirm 1090,-- 
Grafik Drucker 1980,-- 
Druckerkabel 185,-- 
2. Laufwerk 320 KB 1495,-- 
. DOS 137,50 
BE? raten "ET H Speichererweiterung 950,-- 


Komplettes System (wie vor) 13300,-- 


Systemeinheit 64 KB 

+ Disklaufwerk 160 KB 5950,-- 
Tastatur 870,-- 
Bildschirm 1110,-- 
Adapter für Drucker 

und Bildschirm 1090,-- 
DOS 137,50 





Komplettes System (wie vor) 8690,-- 














| 
| 


2 
H. Schädel : 
-Straße 1 $ 
ichtenau $ 

° 
rtsteuer + Versandkosten $ 
REUNION. 


TEXAS INSTRUMENTS 





COMPUTER 


Der eingeführte bewährte Personal Computer mit den 











olivellti - M 20 - 


perfekten Problemlösungen 


« FAKTURA 
« LOHN UND 
GEHALT 





olivetti-Computer M 20 
mit 160 KB 


+ 2 Disklaufwerken a 320 KB 9950,-- 





TI 99/4A 


6 Monate Garantie 
















TI 99/4A 16 KRAM 699,-- 
Recorder 135,-- 
Kabel für Recorderanschluß 47,75 
Sprachsynthesizer 349,-- 









Joysticks 95,-- 








Software 





Schach- 


programm 


Grandmaster _ 
ein Meister 
seines Fachs 


Seit es Computer gibt, übte das 
„Königliche Spiel“ eine starke 
Faszination und Herausforderung 
auf viele Leute aus, die sich mit 
dem Programmieren beschäftigen. 
War es anfangs selbst auf großen 
Anlagen kaum möglich, den Com- 
puter zu einem guten und für den 
geübten Spieler ernsthaften Geg- 
ner zu entwickeln, so ist dies heute 
dank der rasanten Entwicklung der 
Mikroprozessortechnik selbst bei 
den Kleinen möglich geworden. 











Aus der Fülle der angebo- 
tenen Schachprogramme, 
die inzwischen auf dem 
Markt sind, fiel uns das 
1982 von der Firma „King- 
soft“ entwickelte Pro- 
gramm GRANDMASTER 
auf. Grandmaster gibt es 
als Cassette für den VC-20 
und VC-64. Für die VC-20 
Version ist eine Speicher- 
erweiterung um minde- 
stens 8 K notwendig. 


Kingsoft selbst bezeichnet 
sein Programm als das 
„stärkste Schachprogramm 
für Heimcomputer“. Diese 
Behauptung möchten wir 
an dieser Stelle weder be- 


34 Homecomputer 





stätigen noch in Frage stel- 
len. Nachdem wir Grand- 
master jedoch ausführlich 
getestet haben, können wir 
sagen, daß dieses Pro- 
gramm in punkto Hand- 
ling, Grafik und Spielstär- 
ke sehr ansprechend und 
last not least auch vom 
Preis (79,-- DM unver- 
bindl.) recht interessant 
ist. 

Die gutverständliche deut- 
sche Bedienungsanleitung 
rundet das Programm ab. 
Nach dem Laden des Pro- 
gramms waren wir von der 
Grafik und der übersichtli- 
chen Anordnung der Bild- 
schirmanzeigen äußerst 














angetan. Für die Ästheti- 
ker unter den Schachspie- 
lern wurden einige reizvol- 
le Möglichkeiten, den Bild- 
schirm nach persönlichem 
Geschmack einzurichten, 
eingebaut. So kann die 
Grafik mittels der Cursor- 
tasten in horizontaler und 
vertikaler Richtung exakt 
auf die Bildschirmmitte 
zentriert werden. Über die 
Funktionstasten können 
das Spielbrett sowie Vor- 
der- und Hintergrund nach 
Lust und Laune jede mög- 
liche Farbkombination er- 
halten. Zugegeben, eine 
Spielerei, aber dennoch 
sehr schön! 


Doch nun zum eigentli- 
chen Spiel: 

Es stehen 10 Spielstufen 
mit Rechenzeiten zwi- 





schen 5 Sekunden und 2 
Stunden zur Verfügung. 
Für Freunde des Brief- 
schachs ist Stufe @ vorgese- 
hen, bei welcher der Com- 
puter Stunden oder unter 
Umständen sogar Tage für 
seine Zugentscheidung be- 
nötigt., 


Eine Anderung der Spiel- | 


stärke ist zu jeder Zeit über 
die Taste “S“ in Verbin- 
dung mit der entsprechen- 
den Zahl möglich. 

Während Grandmaster 
überlegt, zeigt er den mo- 
mentan favorisierten Zug 
und wieviel Halbzüge er im 
Voraus analysiert hat. Be- 
tätigen der “Stop-Taste“ 
unterbricht seine Überle- 
gungen und veranlaßt ihn, 
diesen Zug auszuführen. 
Diese Funktion ist sehr 
praktisch, wenn auf einer 





höheren Spielstufe ge- 
spielt wird und der Spieler 
nicht die endgültige Ent- 
scheidung des Computers 
abwarten möchte. 

Die folgenden Möglichkei- 
ten ergänzen die prakti- 
sche Handhabung. Mit der 
Funktionstaste F2 kann auf 
automatisches Spiel umge- 
schaltet werden. Grandma- 
ster spielt nun so lange ge- 
gen sich selbst, bis er ein 
Matt oder Patt findet. Für 
einen Anfänger zum Erler- 
nen von Strategien ideal 
geeignet! Einfaches Betäti- 
gen der STOP-Taste führt 
wieder zum normalen 
Spiel zurück. 

Um eine Figur zu setzen, 
wird lediglich die Start- 
und Zieladresse eingege- 
ben (z.B. E2 E4) und RE- 
TURN gedrückt. Mittels 
der DEL-Taste können 
falsch eingegebene Zei- 
chen gelöscht werden, 
wenn RETURN noch nicht 
gedrückt war. Auch nach 
dem RETURN-Befehl ist 
eine Zugrücknahme noch 
möglich und zwar über die 
<-Taste. Für den ernsthaf- 
ten Spieler ist dies natür- 
lich Mogelei und daher 
nicht akzeptabel; für An- 
fänger jedoch unter Um- 
ständen lehrreich. 
Grandmaster verfügt 
selbstverständlich über ei- 
ne Eröffnungsbibliothek, 
die alle gängigen Varianten 
der Spieleröffnung enthält. 
CTRL @ dreht das Spiel- 
brett um; der Spieler kann 
mit Schwarz gegen den 
Computer spielen. 

Alle Sonderzüge, Rochade, 
enPassant-Schlagen sowie 
die Bauernumwandlung 
sind möglich (Bauern wer- 
den grundsätzlich in eine 
Dame umgewandelt). 


Unser Urteil: Ein sehr gu- 
tes, empfehlenswertes Pro- 
gramm, den meisten rei- 
nen Schachcomputern zu- 
mindest ebenbürtig, je- 
doch wesentlich preiswer- 
ter, als alles bisher angebo- 
tene. 











CAR-CRASH 


Ein Spielprogramm fürden 
VC-20 mit mindestens 8K 
Speichererweiterung. 
Spielen können zwei Spie- 
ler gegeneinander oder ein 
Spieler allein gegen den 
Computer. 

Ziel des Spieles ist es, das 
gegen den Uhrzeigersinn 
fahrende Auto mit den 
Tasten “,“ und “.“ (innen, 


i REM 
2 REM CAR CRASH 
a) 


Dr ee 


außen) möglichst lange un- 
fallfrei zu fahren. Wenn fast 
alle Punkte verbraucht 
sind, erhält man ein “Bo- 
nusauto“. 

Beantwortet man die an- 
fangs gestellte Frage nach 
der Spielerzahl mit “2“, so 
kann ein zweiter Spieler 
das im Urzeigersinn fah- 
rende Crashauto gleichzei- 





tig mit “C=“ (das ist die 

Commodore-Taste) und 

“Shift“ (innen, außen) 

steuern. 

Vor dem Laden oder Ein- 

tippen muß 

POKE44 32:POKE8182,0: 

NEW eingegeben werden. 
Georg Foltin 


MT" CHR& EG PÜKEEEE7R, 25 


iio 


RAID I SREHEFRIMT" 


ger Te 


Ela] 


i#grE PRINT” 


IELER 


";:NEKT 


SFIELER” 


THRENSS 


STILLE, 220 


THEMEN 
HEHE 
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EIET HIN POnse 
NEOHT3IN IN0I 434 EOSOE 
F W24 Zu00E 
NILIOJ 98035 W343 19888 BET OSSIHOE 
4 CI) WI BOGBE Tel: 22-=00A D:ETI=C133:207=0839 
1-58 ’B21'S3'BLT "SS 'DLT "SE 'H21 'ISHLHT BEEBZ EL .LNIS4 
SET 'SET "LBZ'LUZ'ErZ/ERZ'SEI SET 'SLULHT BEEHZ ERAHNEN = ZE= 30: Te: SSEH=I4: Deu :EBSHENd 
ESE'2S2 SET "SEI SET 'SET'ZS2 252 SIHLHA DIEBE 9L3IE=L:57ELEIEINNG: SE (ELSIEHACH: 902 'SISIEIAOI 
SET 'SET SET 'SEISSE SEI SET ’SET ZU IHN DueaZ 6=22:0=IS:C=Hh 
SSE'SSE'ZEI SEO 'SSE ZEIT 'SSE'SSESIHLHI HEEBE 2SZESOLOG:LHIN: IH 1304: 9034: 2010= 140 
PEIHEDEBZ'PZBZ'SSEISG2 FEHLT GEEBZ Körbe 19=hl 
BIOZIEE'SZ'TIS'IS'BZ2CHLHA BLzaz SPASNIHLT-=I41: 0433 
BISZIIEIIS'SZ/IS"ISB2 "ICHLUN DI2DZ AINZN:(ESAZS+T A324 HEIST INO4: FISOLO=1Y0J 
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Ba ws ed’ shulum aelaz CHA I23II=I: LITAS 
BIS ISIS HB’ ISIS BZ BrULHT B8TaZ G=3:0=1:Za6p=d 
Bra rz'rz'a'a'aTsyLynm guraz DELETE IE 1 RETTET ., INT SH 
LIEIT'PEISCZ/SCZ'HE’EIT'2'SIIULUT B9TOZ BEER 
VEZIBEZIBIISGEISCE'BIBEE HEIZ LHTULHU BSIOZ 
HEBE'IZT BE HEEIZ'SS2'EIZ'FIIULYE GrTaZ TIOLOD: INK tur WE, TFALNTAI:ZESIO: T=IT :S62H=I4 B=UT :EBCH=WANIHLOCKKAL: I-KNENH 
BIE'SSZ'EIZ'PZ'OS'YET OS 'PZEIIHLUN MEIGE BESLEC+IINUG: SE IAINOI: U T+LIHOT 
YE'IEISIEFZ'O DO FZIULHA BEIOZ IK3N:LX3N 
BR'B'PZ'SE'IE'HEHEIZIHLHT Alıaz AIX2N: [OLB= 11304 
B'BST ‘IT 93T ST 'a’B EZIULHT BOTAZ ErSHCTIINI TELLEHIIIAOI: CI IIND 
YE/IEISE ZEIT GT 'H’O'SSULHI BsanZ EDLE=LHNI 
IE'IEIELP'SORZBHTELULHT AH SETIOTT+L3NCH 
BIBIST'ITZEIGEHETIEFLHLHN BIaaZ AlJ3LSBRTOLAT=IANd 
B'a'BrZ’/S'Barz'3 0 ‘SaTuLyg asanz DI T+LBNOI: FE WIND ZEN IHINOS 
B'BrERz"S'p IST IE HE'SZULYNI HEBBZ NANL3S | 
BEIFEIIEBEIIEIEHEIEESHLUN HTASZ TRK rt. TFALNTAG 
Bro'ss2'8'0'552'8’6’#SHLuUd BOGB2 BSasans0s 
EISLT!'ZISLTBITELPIESTCHSETHIEBT’ZITETPITOZHIOSZISTHLHT BIORT Band 
ze . THXHEHN: 1=5:0=2Z 
"IOSZISEV ZI TET PEST PIGATIFIEBT HEBT ZIELE TOZPITOETErTET SZ TOZULHT BORAT AX3N: AXIN:6EOLO=DAINI: TECH LINOI: BLIND 
AKZN:LRIN:E6OLO=HAOH: SZ !S+LINIH:HLIN0I IHO6 AIX3N: 86019=0904 
NANL3Y E52 92 'E+ 13404: 822 13404: 60L1=1904 
ILX3N 0112 NANLZUNIHLOFTIZZAI 
fIX2N 0012 I+Z22=22 
FıRaN 0602 CZ LISIFALSISOIM.MuFALNIAI 
EIOLI=NUON DSG2 B°‘1-13904: BEZ 130 +98=J5 
QI+S232E3N04 8202 E=5 
ALKIN 0982 arroLod 
WEBEOLI=MUCH BSBL HIT IIIHOL 
H'IHGLSIEINDI AriL ARZ+Id=I4: ZEN AFIIFNOS 
1’HAY34 BEB2 BORPNIHLNdeAKE+IIST 
ZZOLI=[AOI4 MAL Ca ID A+II3N04 : SE IAINOS 
FUN 1524 9182 GSSN3HLZEC>CI4HNN334HI | 
FG1G=TA0H:ST'BLSIERNIG DOLL CEINDET+ITD IA AaH, | 
SsıES BSSN3HLB=H AI 
2732 IE2204: CHIIIWADMI enes Terz): CERIINITIeA 
BHSBATE ALTER Bs2E Aarüldd 
B22 <S’-CTIUNYINIS=A 
aszZ BSSNIHLS"CCTIUNAAL 
BS2S G9% ‘TSFOLOSAND | 
ar2S aLaN04:9 + Lad 
Bez s <UI>I NIBHOI 
azzc AKZ+LdeNd: ZEA+NABNDG 
@1lzs BBBPNIHLIISAKZ+UHAT 
zB CHIIDA+UIENDI: ZEUIINIS 
@EeıSs Sp‘ 13904: 86T" T+LINO | 
Bs15 BSPNIHLZE<>CA+UIIN3IHAL 
Bro ENGE T+UTD I AA 
INTN4 O915 ÖSFNEAHLG=AAT 
„ANINd BEIE (BEA) C2E=h eh: LEN AIIHeR 
„INIE4 BPIS BERPNIHLCITI AHIdeNdEI 
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Ritte 
Ihre Aufgabe ist es eine 
Burg einzunehmen. Sie 


können sich mit den Ta- 
sten: 


1 «— links 
E — rechts 
"PB ® Schild 


L y Schuß bewegen. 


Sinn des Spieles ist es, die 
Kette der Zugbrücke 
durchzuschießen, indem 
Sie ganz nach vorne zum 
Graben gehen und dann 
auf „Teufel komm raus“ 
losfeuern. 

Es ist natürlich klar, daß 
sich die Burgbewohner so 
, etwas nicht gefallen lassen. 
Sie werden sich mit Bogen- 
schützen und Wunderwol- 
ken verteidigen. 

Wenn ein Pfeil auf Sie zu- 
fliegt, müssen Sie sich duk- 
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ken „P“. Bei der Wunder- 
wolke schützen Sie sich 
entweder mit dem Schutz- 
schild „P“ vor dem Pechre- 
gen, aber besser ist es ihm 
auszuweichen. 

Sie sollen die Kettenbefe- 
stigung 16 mal treffen. 
Wenn Sie sich ducken oder 
das Schutzschild benut- 
zen, wird Ihnen jeweils 1- 
20 Treffer abgezogen. 


Sie fangen mit 0 Treffern 
an. 

Sie sollen 16 Treffer errei- 
chen und können maximal 
-6 Treffer durch ducken 
oder Schutzschildbetäti- 
gung bekommen. Jedes- 
mal wenn Sie sich ducken 
wird nämlich die Kette er- 
neuert bzw. repariert. 


Zum Programm: 

Als erstes geben Sie ein: 

1Rem...(19. Punkte.ein). 
N/L 

Danach schreiben Sie 

Poke 16510,0 N/L 

und dann geben Sie das 








Listing wie gewohnt der 
Reihe nach ein. 


Bemerkungen: 

Bevor Sie Ihren ersten Pro- 
belauf machen, saven Sie 
lieber das Programm, denn 
wenn in den ersten 7 Zei- 
len ein Fehler ist, kann 
dann das Programm ge- 
löscht werden, wenn das 
MC-Programm in Zeile 
560 und 4010 abgerufen 
wird. 


In Zeile 510 wird man in 
den Gefahrenabschnitt ge- 


bracht. 


Durch verändern | 
des Wertes hinter dem 
„RND“ beeinflußt man die 
Gefahren. 

In Zeile 570 wird be- 
stimmt, ob man dem Bo- 
genschützen oder der Wol- 
ke ausgesetzt wird. 

In der Zeile 420 werden die 
Inputzeilen zu den Aus- 
druckzeilen dazugegeben | 
(Bildschirm) (24-Zeilen- | 
Bildschirm) | 
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ORREM EERHND: «MBir77$4 NEXT TAN 

ii PRINT AT 8,4," EROBERN SI 
E EINE BURG... GE 
STEUERT WIRD MIT: 


ı 
INKS E 
CHTS 
HUSS3 8:1: 
HUTZ",,TAB 3; "VIEL GLÜEO 
2 Rand 
IS_LET A$="ROCADAERSISAAZ2I2ETE 
EBS77OIIFS2DWUVZIF SU" 
4 FOR _ A=168514 TO 16532 
\_ageg CKE R,CODE As+16+CODE Asa 
LET_ A$=A$(3 TO) 
NEXTA 


REM 
REM 
REM 
REH 
REM 
REH 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REH 
REH 
REM 
POKE 16413, 


@;A$;AT 17, 
Erz TA 


35" Br; 





A-tINKEY$="1" AND A>0 
AuINKEYSS"Er AND Afıs np 
508 PRINT IV 

a ne Tre he 


IF_RND(.15 THEN GOSUB 558 

LET D=INKEY$="L" 

IF D OR _S THEN GOSUB 1058 

GSCOTO 4sa_ 

REM CHTURG 

PRINT TAB USR 15514; AT 22.2 
TAB USR 16514 

573 IF RND>.S THEN G0TO 730 

558 REM 


s=o, Pau AT 8,24. 
> = r ce; 
AB 38; ' a 

Se@ FOR C=31 TO a STEP -2 

612 LET A=A-tINKEYS="1" AND Ay 
I + tINKEY$="E" AND A<16) 

623 Fa TEE a7" = 

En. 4, N, BE: FR 
TAB RA; ' “ ” # 

6398 IF NOT B_THEN, PRINT_AT 17,R 

";TAB R;" ";TAB R;" mO 

io Teen. Br 

SAa@’ LET B=INKEYSCE>H"P" 

858 IF NOT B THEN LET L=L-(L>-6 


s 

655 LET D=INKEYS$="L" 

8568 IF DOR S THEN GOSUB_ 1988 
IF C<25 THEN PRINT AT 17.C; 


s28 
5358 
548 
55a 
562 
; "RCHTUNG. ..' 


678 
”2_ 
588 IF ABS 
GOTO 280908 
698 NEXT C 
788 PRINT RT 17,8; ' 
718 PRINT AT 22,2; 
AT_16,24; "m ‚_T 
',TAB 22," 
72a RETURN 
7-se REM EB 
749 FOR C=22 AND A>3 STE 


P -i 

758 PRINT AT_@,0+43;"$$$ ": TAB, C 
+2; Br PR CC; "5455565646 $$ 2 
TRB +3; 2 

768 LET A=A-\INKEY$="1" AND A>Q0 
) +tINKEYS=" AND A:16) 

778 LET B=INKEY$<>"P" 

775 NOT B THEN LET L=L-(L>-5 
3 

788 IF B_THEN PRINT AT 17 = 

/_ ";TAB_R;”" 0% ";TAB A," Fe E 
TRE RA; ' = 

728 IF NOT_B_THEN PRINT, AT 17,R 
-1;' ";TAB A-1;" SO" ";TAB 
RA; ;TAB RA;" 

sos" Let’ DeinKeyge ee 

sea IF D OR 5 THEN GOSUB 1988 


818 NEXT C 
828 PRINT AT 6, 20, "Mt"; TAB 19," 
BT 


de 


’ 
„5538 PRINT AT, 8,20; 
; TAB 18; ° ";TRB 
18: TAB 17, 
49 PRINT AT 68,28; 
";TAB 18; "Pe ; TAR 
18; "PB"; TAB 17; 8" 
s5@_ PRINT AT 6,20; 
"TAB 18; " ";TAB 
38;”" ":;TRB A7;" 
„e59@_ PRINT AT’6,28; 
";TAB 18; "Aa"; 
HN ; TAB 5 
878 PRINT 


{iRA-C+1)<2 AND B THEN 


PECH 
To n=2 


c+3;" 8 
e+1;,” 


ssa, „PRINT 
C+2; 5 


























KRRRERRRRRRERERHEEREEHRERE THE THE EHER R KRRRRKERERRRRER KH 
Pre ETF KRRERRRRERERE NK 
x%* *%* 
x%* *%* 

. *%* 
xx *%* 
* FÜR UND F+Kk  * 
xx *%* 
BB 3 a a a a a a a a a a a a a a ee ze 5 
* Ä 
*%* 
x TUNNEL R 3D DEFENDER für 2X81/16K BestNr 152 a: 
5% z Vergessen Sie alles, was Sie bisher an Weltraum- x% 
kak Reaktionsspiel mit ri spielen gesehen haben. Bei 3D DEFENDER schauen Er 
Mu x ie aus Ihrem Cockpit und sehen -dank der super- 
** superschneller 3D x schnellen Graphik- alles wie bei einem Flugsimu- ** 
«x Farbgraphik. Für % lator vor sich. Und das in dreidimensionaler x 
Pr SPECTRUM 16K/48K. x Darstellung. Mit 8 Flugrichtungen, Radar, UFOs, *%* 
x Was liegt im TÜNNEL x Plasmaangriffen,... Das müssen Sie sehen! xx 
x * "Another 3D winner" schreibt SINCLAIR USER x 
verborgen? * . ee 
** gen’ nM29,- * ** 
x* 3D MONSTER MAZE fur zxı/ x% 
* Ur ZX81/16K BestNr 151 x*%* 
*%* ESCAPE * Unglaubliche Graphik! COMPUTER & VIDEO GAMES x*%* 
: hreibt: "3D MONSTE 
2 3D-Adventure. Bis * Zhave seen Tor the ZXir. Finden Sie Ihren se 
Ei zu 5 Monster sind * Weg heraus aus den Irrgarten, während RE X Ex 
R nen nachjagt? Wände, Gänge und REX selbst 
Er hinter Ihnen her, * sind dreidimensional Bargestsilt, monan: 1at unse ** 
ir während Sie den Aus- x noch nie dagewesen. Nur bei uns, nur DM 29,- ** 
l gang des Irrgartens R3 re eh Eee r 
i = . t 
“ suchen. Tolle Graphik! * with the capabilities of the ZXBT, then 3D MONSTER MAZE would a: 
*»* nur DM 21, = Für SPECTRUM 16K/48K. 2 be the one without doubt" schreibt ZX COMPUTING. ** 
xx * xx 
RI ck 
x x 
* 
*k Port zxPi für ZX81, ZX-SPECTRUM BestNr 400 x E23 
a Technische Daten: Eingabe 8 Bit, Ausgabe 8 Bit, zusätzlich 5 STROBEs. Hoch- x NER Pason: auch HARDWARE £* 
%*>%  Stromausglinge (low=24mA), Schmitt-Trigger-Eingäinge. Anschlüsse steckbar. E S. CHIP 4/83 5. 179 *%* 
*%* Fertiggerät ohne Gehäuse mit ausführlicher Anleitung. * Er 
al Besonderheiten: für den Druckeranschluß (GPlooA) vorbereitet (CENTRONICS) ZRRRITENEEUEERTTORENSTTEENRTR ee 
x Port Normalpapierdruck 5 = PP er 
*%* v ne Zei * Der Knüller A END x 
» ———) ZXPIT freisinistine = : x* 
xx zxe1 andere Rechner— Ei APPEND ermöglicht das Zusammen- *% 
Ir D/A-Wandler — * laden von verschiedenen BASIC- x%* 
ES A/D-Wandier mit ImV Auflösung x Programmen. Außerdem ist noch ei 
ck Experimentierplatine, LEDs, ... * eine RENUMBER-Funktion einge- x 
x ri baut, die Ihre Programme oder Kk 
x (fertige Zusatzgeräte in Vorbereitung) * Teile davon neu durchnumerieren x% 
Er ZX-SPECTRUM RAM (nur ZX81) ZXPl nur DM99,50 # kann (auch GOTO, GOSUB und RUN), eo 
%*>%* Zusätzlich kann auch der SINCLAIR-Drucker angeschlossen werden. = Unser APPEND ist das einzige x%* 
xx * derartige Programm, mit dem man *%* 
vr a z.B. auch 2 Programme a 5 KByte ** 
x DBMS 81 € BETH: INKA -Henreu * zusammenladen kann. Andere Pro- ee 
xx 4 Nur bei uns: das erste & gramme gleichen Namens können *% 
xx * SPECTRUM-Adventure in * das nicht!! x*%* 
*%* Programm zur Erz beliebt * deutsch und'.in MC. ‚Sie M ns *%* 
**  Datelen/Kartelen. Unterstützt Sie X dannen sich Ihren es %  APPEND ist nicht billig, denn ** 
%*% nach der Erzeugung bei der Verwal- * Surch 92 Räume, um die % Qualität hat ihren Preis, aber x 
%% tung Ihrer Daten und ermöglicht * ? Schätze des Tempels %* 2 Sale Kk 
%% durch eine spezielle Speicherart * ee lohnt sich! ek 
eine bessere Ausnutzung des RAMs. ‚ als es * 7 ei 
**  2.B. werden über 15500 Zeichen im * Ihnen jetzt vorkomt!!! x APPEND für Z2X81/16K DM 45, %% 
*%*  TGR-RAM verwaltet, Im 64K-RAM sind * Nur für 48K-SPECTRUM. * x 
*%* es über Boooo 111 ig DE ee ee 
%k  Ahnliche Systeme verwalten sonst = * xx 
%% nur ca. 10000 Zeichen im 16K-RAM. y nur DM * R x% 
x Weitere Details In unserer Info. x * Alle diese Produkte kommen aus dem Hause EM 
DBMSS1 für ZX8l/mindestens 16K * Wolf, i i ö 
x* Kunacat prolamare Mur ORB. * 29 = x gang Fleischhauer und Nils Körber GbR. 77 
Be * 9 # Wollen Sie mehr wissen? Wir = 
ga ER R RK schicken Ihnen gerne eine INFO se 
x . X gegen Voreinsendung eines x 
xx Unsere gesamte Software-Palette ist auch x selbstadressierten Freiumschlages DIN C6. x*%* 
*%* erhältlich bei unseren Stützpunkthändlern * . *x* 
Je * Schicken Sie diesen an: x 
xx Hamburg: HT-Elektronik * *%* 
x Lappenbergsallee 38, 2 HH 19 % » F+K-WARE, Abt. H xx 
x* Tel. 040/405702 * Rebenacker la, 2000 Hamburg 54 “ x* 
*% * ‚ *%* 
*%* nahe FFM: COMPUTER PARTNER D. Forbach Pi SPECTRUM-Benutzer fordern bitte 'Liste S' an. xx 
** Bergstraße lo, 6304 Lollar * *%* 
x* Tel. 06406/6648 %* a a un 
.. * * 
ie Nürnberg: MC PS GmbH %* für ZX81/16K: * ** 
ji Gibitzenhofstraße 69, 85 Nbg * h * Een 
x Tel. 0911/6877093 + Spiele-Klassiker % FE 
a * i 
x% sowie im Fachhandel. Fragen Sie Ihren # ASTEROIDEN DM 21,- + Pestellungen bitte auch ee 
x% Computerfachhändler ganz gezielt nach % INVADERS DM 21,- % an die vorgenannte Adresse RR 
x% Unserer Software. Gute Händler können 4 BREAKOUT* DM 12,95 * richten. Versandpauschale: „% 
*%* Ihnen jedes Programm besorgen. * PUCKMAN DM 27... * DM 6,-. Alle genannten *%* 
’ * i 
x*%* * CENTIPEDE DM Bor Preise enthalten die ges. E77 
KERRERRRRHRRRRRREERERRHERERER RR HF % MwSt und sind gültig *%* 
+ er Br # *auch für i B & F# 
** Händleranfragen erwünscht!! * ee Diane ** 
ee zn ZZ ZZ za ZZ 2 ZZ zo 
Bez in Z  Z 


":TAB C+3;'B se 
381 PRINT AT @a,C+3;' 
Hi EEE ‚TAB, „e+1; “ 
Ae C+3; 


382, "PRınT, AT 1, C+3; 
e+1; /TAB 9:5; B 
853, ‚PRINT AT 1,042; "” 
C+1; ;TAB C+3;' 
884 PRINT AT’3,C+3;” 
+2," EB 
Ei PRINT AT 4,043; ' 
+3; 
88e For z=3 TO 18 STEP 2 
388® LET A=A- (INKEYS$="1" 
3 +{INKEY$="E" AND A<16) 
918 LET D=INKEYS="L" 
222 IF D OR 5 THEN GOSUB 1088 
33a LET B=SINKEYS$<H"P" 
40 A Rn a7" 
2%; n 3 „a RR 
raB_RA;' u . a 
52 Ir N NT An Ten RENT, AT. 17, 
> j Halz ";TAB 
a TAB RA; u - 


‚se IF NOT B THEN LET L=L-(L>-6 


PRINT AT Z,C+4, "B"; AT Z-2,C 


NEXT Z 
PRINT AT Z-2,C+4 
PRINT AT 22,©; 


IF ABS (A-C-31>1.6 OR NOT RB 
THEN RETURN 
1905 LET L=RNDSSRNDSARND 
1210 PRINT_AT, ‚iz 3 
FAR Al 21;" 


B A-1, 

TaB_A-1;" TAB A,” 

1815 LET L= IND KRNDSSRND. 
";TRAB_R- 


1020 PRINT AT A7,m:. I: 
a ; "I;TAB A- ee 
® 


GE: LIERNDS#HRND&ARND, 
N Fee nlı ae 
. . > 
‚TAB AI a 
1027 LET LERND&#RNDx=RND 
12358 PRINT AT @,0; "DER 
Ba" HAT SIE 
SCHLASE Nyon" 
ıaaa GOTO 2854 
1988 IF 5 THEN GOTO 1148 
ı2908 LET H=1%&% 
11209 FOR S=R+3 TO PR+9 
2119 LET H=H-1i1 , 
1128 PRINT AT H+1,5-1,AT H,S;"r" 


115@ RETURN 

ı11la@ NEXT 5 

i15@ PRINT AT H,S-1l, 

i1&88 LET L=L+(S=261 

ı17@ IF S=26 THEN PRINT AT 11,25 
‚CHR$ (1+156) 





LET S5=@ 
IF L=16 THEN GOTO 
LET D=®@ 
RETURN 
PRINT AT 17 


"TAB A;" Eh" 


aese LET. ER sRyO AND 
2 

sm og "TAB A;” Tr 

2@15 LET L=RND**RND*#RND 

2328 PRINT AT 17,R," 

> 0 "TAB R;" Bi 


LET L=RND*+#RNDx#RND 
PRINT AT 47, A; 
';TAB R;' 


49004 


2025 
2038 


IE 
2835 LET L=-RND&*#+RND*XRND 
22428 PRINT AT a,uU, "an BOG 
ETZEN ERWISCHT . 

Ban Sarnen 2222272. 72.722:.223 


PRINT AT 19,0, "NOCHMAL?" 
RUN (28682 AND INKEY$<>"U")} 
FOR Z=2 TO 3@ 

LET L=USR 165144+USR 16514 
NET Z 

PRINT AT, 22, 1; 


Für zeia T0 20 
PRINT AT z,22;' 
NEXT Z 

PRINT AT 20,19; " 
PRINT AT_21,18;" 
- FOR A=A_TO 25 


PRINT AT 17 
"TAB R;' 7 w 


NEXT A 


PRINT AT 7,@,R$s{ TO LEN A$- 


RUN (a5 AND” INKEYECD U") 
astge 
PRINT AT N ERRETE On 


; TAB, 22; RER ; 
aiss LET END AND 
416@ PRINT AT 6&,22-6; 

;TAB_23; 
ai7a PRINT AT 8 ‚b2- 6; 

';TAB_22; 
a1sa PRINT AT 5, ‚B2-6; 

‘;TAB_ 22; 

4198 PRINT AT 5,22- 6; 

;TAB_ 22; EB" 

4208 PEzE AT 6,22-6; 


# 








Missile 
ZX-Command 


In Mußestunden habe ich ver- 
sucht, das bekannte Spielhöllen- 
spiel “Missile Command“ so gut 
es mir möglich war, auf dem ZX-81 


zu gestalten. 


Zur Eingabe: 

Wenig angetan von derfeh- 
lerträchtigen Eingabeart 
eines Hex-Dumps in CS, 
habe ich durch Ausdruck 
der dezimalen Aquivalente 
und einer entsprechenden 
Eingaberoutine (Zeilen 
8000-8004) den Versuch 
gemacht, sowohl die Ein- 
gabe schneller, als auch die 
Fehlerrate (z.B. Verwech- 
selung von B und 8) gerin- 
ger zu machen. Das hat 
obendrein den Vorteil, daß 
keine Initialisierung not- 
wendig ist. 

Nach einmaliger Eingabe 
der dezimalen Liste (von 
links nach rechts!) kann die 
Eingabe-Routine gelöscht 
werden, da die REM-Zeile 
ja mitgesaved wird. 


Beim ersten Start des Pro- 
gramms mit RUN muß 
zuerst die dezimale Daten- 

tabelle eingetippt werden. 
Bevor man dann das Pro- 
gramm ein für alle mal ab- 
saven kann, müssen die 
Zeilen 8000 - 8004 ge- 
löscht werden. Jeder weite- 
re Start erfolgt dann mit 
RUN. 


Zum Spiel: 

Die Aufgabe des Spielers 
ist es, möglichst lange die 6 
Städte vor den Laserstrah- 
len zu schützen. Das kann 
er dadurch erreichen, daß 
er den grauen Zielbalken 
unter einen der Strahlen 
bewegt und den Feuer- 
| knopf betätigt. 
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An der Stelle des Zielbal- 
kens wird dann eine Explo- 
sion entstehen, die den 
Strahl zerstört. Bis zu3 Ex- 
plosionen können gleich- 
zeitig auf dem Bildschirm 
sein. 

Es steht nur eine begrenzte 
Anzahl an Schüssen zur 
Verfügung. Sie werden un- 
ten als Pluspunkte darge- 
stellt. Zusätzlich geht 
Energie verloren, wenn ein 
Strahl die Basisstadt in der 
Mitte trifft. Nach 50 Strah- 
len erfolgt eine Zwischen- 
wertung. Das Spiel wird 
dann automatisch schnel- 
ler fortgesetzt. 

In der Version, die durch 
das Listing angegeben 
wird, haben die Tasten fol- 
gende Bedeutungen (Zif- 
fern links). 


Zielbalken runter 
Zielbalken rauf 
Zielbalken links 
Zielbalken rechts 
Feuer 


OOo 10 
oRZOU 


Die Buchstaben (rechts) 
habe ich so vereinbart, weil 
ich parallel zu diesen Ta- 
sten einen ATARI-Joy- 
stick angeschlossen habe. 
Für ZX-Besitzer, die das 
nicht haben, wird durch 
folgende Befehle eine we- 
sentlich besser zu greifen- 
de Belegung erreicht: 
POKE 16561,117 
POKE 16556,85 
POKE 16566,109 
POKE 16571,77 

Martin Zwerschke 











REM BEEREN (37 


REM MISSILE_ COMMAND BY 
MARTIN ZWERSCHKE 

REH 

GSCTo sanmıa 

PRINT AT 









SOTO 101% 
1038 RUN 
21350 LET 
2146 LET 
1221144“ 
z28& 
22268 
22408 
2268 
2279 
23250 
2298 
2322 POKE 26422,R 
2326 
23408 
2362 
23508 


121125131225 
O LEN As 
L A$(D 


321235 


D 
je} 
E3 
m 
Gi 


FOR I=a_ T 





S2308NEXT I 

32408 IF FEEK_27039>5 

22392. PEEK 270598-3 
33808 LET PUNKTE=PEEK 27024 +256xP 

EEK 27225 

3318 PRINT AT 22,15; PUNKTE 

5328 LET DF=PEEK 16596+256#PEEK 


THEN POKE Z 


=349 LET B$="" 
3352 FOR_ I=bDF+6935 T0_DF+792 

35368 IF PEEK I<,115 THEN LET E$= 
B$+THR& FEER I 

3378 NEXT I 

5 LET I=4 

GOSUBS 4E3 

LET I=8 

GOSUBS 4ES3 

LET 7I=12 

GSGSUBS dES 

LET I=22 

GOSUS dEI 

LET i=26 

GOSUB 4dES3 

LET I=3& 
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3422 GOSUB 4E3 
3428 FOR I=65 TO 96 
34308 IF B$(I)="#" THEN GOTO 5022 
3435 GOSUB 3608 
3440 NEXT I 
34529 GOTO 52aaa 
365a@ PRINT AT 23,I-85; "8" 
3518 LET PUNKTE=PUNKTE+1 
3528 PRINT AT 22,15; PUNKTE 
363@ RETURN 
4988 IF BEtaL ea, 2 en 
4818 PRINT en ; ; 
22, 1-3; m: 
1028 LET PÜNKTE=PUNKTE+1® 
4932 LET STREDTE=STREDTE+1 
aas2 FOR I=1 TO 14 
4834 NEXT I 
4836 PRINT AT 22,15; PUNKTE 
42849 RETURN 
5009 LET ABF=1 
S@@1 IF STAEDTE=@ THEN GOTO 1858 
5982 PRINT AT 31,0;,B$ 
SB04 POKE 27025,INT IiPUNKTE7256} 
S925 POKE 27024 ,PUNKTE-2S6 #PEER 
5988 PRINT AT 22,15; PUNKTE 
5810 GOTO 9aaa 
FOR I=16514 TO 17689 
INPUT A 
POKE I,R 
PRINT I,PEEK I 
NEXT I 
POKE 16418,2 
cL53 
POKE 27024,8 
POKE 27035,& 
PRINT "STRAHLEN? (4751" 
INPUT STR 
POKE 27934,3TR=S 
». "GESCHWINDIGKEIT 7 


LATE TER 
PM 
pa 


Dh 
& 


hih) 
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rmPß 





ELDER 
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nn] 
ru 
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JBATHB HET T TEST PET TE] 
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an 
yasıkı 


neu 
On 
[6] 


77} 
{A} 
EL LDTSETETETRTRT TERN TE 


PLYERTEL SU DIE FERNE 
BR No Ani 
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fa 
DERLNTRTLTATREST LEITETE TZIWENTEELNEE 


r” 


5 
OU N 
-, 


BD] 


IF 6G<1 OR G>1@ THEN GOTO 38 
POKE 27@302,1902-10xG 
cL5 

GOTO 9998 

FOR I=27608 TO 27635 
POKE I,® 

NEXT I 

PCKE 286@12,1 

POKE_ 16418,@ 

IF ABF_THEN GOTO_ 2088 
PRINT AT sı,0: mem eu 


Tu 
PRINT AT 22,0; 
[2 = LU; 
PRINT 'W 
PRINT AT 28,0," 
GOTO 2Z8aa 


LET ABF=ä 
GOTG 93880 


KD pe je 

Fu 

D1] 

m 
Tirana 

mn 


"J 
ma 


Mm 
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NBHWLSADMENDIERH 


m dh 
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PN 
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no 
NUR MR 
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R) 
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LTE REN 


n 
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REINE 


31057 
KL 


IM} 


pen 
M 
ETW La ET 


SUR® 
N 


mom D 
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Linsac’'s ZX Companion series has received excellent press 
reviews: 


"Far and away the best’ — Your Computer 







Thoughtfully written, detailed and illustrated with meaningful 
programs ... outstandingly useful’’ — EZUG 
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ag =: 
se> == ‘The Spectrum Games Companion’ is the latest addition to the 
os - series and is aimed at the games player and programmer alike. 
er Twenty-one games designed specifically for the ZX Spectrum are 
35 included, with clear instructions on entry and play. Each program 
“a is explained fully with complete details on how it is designed and 
+42 written. Introductory chapters show how to set up and use the 
48 Spectrum and how to create your own games. Later sections 
za sa cover number games, word games, board games, simulation 
>35 225 games, dice games, card 
35 229 2 games and grid games. If 
2225 119 S you want to enjoy your 
A593 67 225 ZX Spectrum and learn 
Sı} 1=} 2r 4 U its secrets at the same 
2 ıi2% i Er} time then this is the 
ı1s 533 & 233 SPECIR book for you! 
is 8 4 28 a__ GAMES Bob Maunder is co 
32 r za a7E author of ‘The ZX80 
33 Ss 34 OmMpAN Companion’ and author 
Ss2 St AR < of "The ZX81 
r r Due E . Companion’. He is a 
Ta ı 28 re I Senior Lecturer in 
Br ı7 m Se a Computer Science at 
237 17 Bo 2 23 Teesside Polytechnic, 
228 353 £ 2383 I 33 holds an MSc degree in 
195 2 r Be r ZB Computer Science, and 
en 7 = = 4 Jas is a Member of the 
is4 1 2: = 3 tr British Computer 
3 & 4 {=} Se , = Fi Society, 
S > 25 = 5 
s0 5 a a ze The Spectrum Games 
re 2 = a Er za Companion is available 
48 7 2ı 254 20 u 
5@ 2 24 1a 8 aa Bob Maunder LINSAC from good book shops, 
254 2 2 24 a0 <2 or send £5.95 to: 
= E 3 = 22 A 
Se Er. er y LINSAC, ( )68 Barker Road, 
>54 3 S4 = >4+ ONL f 
1 3 S4 3 £5.95 Middlesbrough, Cleveland TS5 5ES 
125 s4+ SS_ na — Postage is free within the U.K. — 
3= 138 en % Er ISBN 0 907211 02 X add £1 for Europe or £2.50 outside Europe. 
ıS Sa ıiaS 187 
ı97 ı2 sa i4S 
et >33 ı81 225 
6 Ss& 82 ISIS 
= 81 432 2 BRITAIN’S LARGEST SINGLE 
J; 143 Ss4+ u MICRO USER GROUP 
3 as aa Dan 
2 E 327 S 
15 3=} S 55 
us 2023 THE 
2 so 
163 + 
265 165 
55 Ss3 
167 32 
= = INDEPENDENT NATIONAL USER 
= {e1;To18] 270): 5 171-9 :1:7oQ Y-TTe1:te} 






MEMBERSHIP NOW EXCEEDS 10,000 
BEEBUG runs a regular magazine devoted exclusively to the BBC Micro (10 
i r year). Now 36 pages. 

ue April 1982. Reprints of all issues available to members. 
Programs — Hints and Tips — Major articles — News — Reviews — 
Commentary. 
PLUS members’ discount scheme PLUS members’ software library. 





Mhirnes 


April Issue: 3D Noughts and Crosses, Moon Lander, Ellipse and 3D Surface. Plus articles 
on Upgrading to Model B, Making Sounds, and Operating System Calls 

May Issue: Careers, Bomber, Chords, Spiral and more. 

Plus articles on Graphics, Writing Games Programs, and Using the Assembler 

June Issue: Mazetrap, Mini Word Processor, Polygon; plus articles on Upgrading, The 
User Port, TV set and Monitor Review, Graphics Part Il, More Assembler Hints 
Structuring in BBC Basic, plus BBC Bugs 

July Issue (36 pages) Invaders and patchwork programs. Fix for BBC cassette Bugs, 
Mode 7 explored, User define Keys, Software reviews, High res graphics printout, 
RS423 receive fix 

September Issue: Games programs! Higher/Lower, Hangman, plus string search 
program. Articles on debugging programs, a Safe Verifier, new User guide, errata, 
creating and moving multicolour characters, logic and the Beeb, ideas on colouring and 
shading, Acorn’s ROM replacement charge plus much more. 

October Issue. Program features: alien attack, calendar generator, Union Jack, memory 
display utility. Articles on debugging, improving key detection, Acorn press release on 
0.5.1.2. issue Il Basic, the tube and second processor options, a new series for less 
experienced users, software reviews. 


Membership 

6 months £4.%, 1 year £8.90 Make cheques to 

Send £1.00 and A4 SAE 133: 107€) 

for sample ELLE) 

Overseas 1 year only: 1:14:10 7cBg 77.7 221 
Europe £15.00, Middle East £18.00 374 Wandsworth Rd., 
Americas & Africa £20.00, London, SW8 4TE. 
Other countries £22.00. 
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6%' VideoChips 
Mondlandung 


VC-64 


Ein Raumschiff soll auf der 
Oberfläche des Mondes 
weich gelandet werden. 
Bei zu hartem Aufsetzen, 
bei zu starker seitlicher 
Abdrift oder beim Berüh- 
ren der Felsen explodiert 
es. Wenn es zuweit aus 
dem Bildschirm ver- 
schwindet, hat es sich ver- 
irrt, was ebenfalls Minu- 
spunkte bringt. Die Punkt- 
zahl errechnet sich nach 
der Schwierigkeit des Lan- 
deplatzes, nach der Entfer- 
nung des Landeplatzes 
vom Ausgangspunkt, nach 
dem noch vorhandenen 
Treibstoffvorrat und nach 
der Landegeschwindigkeit. 
Bei mehreren Spielen er- 
scheint für jeden Teilneh- 
mer im selben Durchgang 
die gleiche Landschaft, die 
vom Zufallsgenerator ge- 
zeichnet wird. 

Die Steuerung erfolgt 
wahlweise mittels Joystick 
(in Control-port 1) rechts 
und links mit dem Steuer- 
knüppel, die Bremsraketen 
werden mit der Feuertaste 
gezündet, oder über die Ta- 
statur. Nach links mit +, 
nach rechts mit 1. Ge- 
bremst wird mit der Space- 
taste. Zubeachten ist dabei 
die Trägheit, d.h. das 
Raumschiff reagiert nicht 
sofort, sondern mit Verzö- 
gerung. Mit S kann der 
Countdown unterbrochen 
werden, mit der Spacetaste 
oder mit dem Feuerknopf 
wird er abgekürzt. 

Die Schwierigkeitsgrade 
können in folgenden Zei- 
len verändert werden: 
Zeile 2 

T% = Treibstoffmenge 


Zeile 5106 
V = Fallgeschwindigkeit 


Zeile 5107 
RX = seitliche Abdrift 


44 Homecomputer 








Mai 1983 





"Adu3a 
E’-L=1NIHLBCLIL:Z"T/L-E/N+OS he IOTS 
NANL3I:@TI+LSENOI: ST HE+ISINOG: B'HALSDIOL: 5 EHIMINI:BTZHIAINOI 29005 GORBT0LOD: 8‘ P+TSSHUNIHLACHIST ı COYNIId=d: LKIN: POLT=UMAOE SOIS 
IXN: 14 I8SEC3N04 BGAAS GET tHISINDG: T-&l=AL:B '+KA=SKANIHLA=CTLUNHCIAT HOTG 
E/G-STHE+LSTIOI:GET H+LSTNOL:Z/A-9 I+1S3N0I:OH+LSFNOd SPORE SET P+LSBNOI: T-YL=AL:S'-KUSKANFHLB=CZLUNGLIAT ERIS 
H=22:24= 13: 14=H:4 'OPOZIIOI:ZIOLI=ENOI BrOOS BEL VHISDIOH: T-YL=AL:ZI/A4S +L=LNIHLR=CHTUNHEIAT ZOIS 
TIEZ+IABNOA: TTEZHIADIOI KR IADIOI: A THOAFNOG BERBS SOTSOLOI:MPEALSTNOI: S+h=h:B=ALNIHLB=IULAT: (OCYHIII=L TOTS 
SSZeX:H'IT+IABNOANIHLO>KSI 2055 "IH 1SIN04: HI °SH1SHNOI: BZ TALSFHOI:R 'ZEOTINOS: IT IEEINDF HAAS 
IT'EIHLSINOI:SSTTIHISEBNOI:AT 'ZIHISINOI:B’S+ISINOT:BAT"LHISTNOI BIADS AO; IRINA CHEND: FEOTOLISS-UAGS: ST "EPBZINOH HT TEMEINOI SEAT 
ST WZHLSINNI:B’IHISMIOI:S SH TSDINI: Z=24:0=14 BODRS &'9+152204:0°914+9A390d: „U.INIAd Paas 
z Nanısa BaTa2 FE PIZDNOG: COINIAGEE: A ERNFER STE NER] ZHONENDd ERAS 
S+Nd=NdNIHLG=CBUNGCNINFEHINGI=SSL : IK3N:STOLT=HADI: (OINIFHEH HN IA ERBE ETIBPBZENOI:G TE+TADIOI: 2 3 1085 
BEZ-UX=UR:B+CIT+IAINIIEITHIABNOSNIHLSSZCHRIT :S+K=UX SBDBZ Mid: ST’ 22+IN2IOI: DE=A:OS=RZ=Nd ALS Bed HAAS 
S'+Nd=NdN3HLO=BUNHCHINIFSIUNBI=ASL: LKIN:STOLTSUNOF: CHINIIS=H: Ira LH INDIE BIO Gr2rOLOS: SC PHLS2NOG: «LANZET NMOMLNNOI Cu LNTAd Mesh 
1=24: IHNd=NdN3HLB=CBUNHCHINI3S) SI: LXIN:STOLTSHUOS: CHINIBISH: 2A HNO 2LBAZ BTEHPNIHLUN=$USI:SHLII GESF 
T+NId=MdN3HLS=CBUNGCOINIZHI IT: IKIN:STOLT=HAOS: COINFIISH:ST-A N LHIABNO4 DICHZ BESPNIHLST-EL=COCINBIAEL BIEr 
THNd=NdN3HLS=CBUNYCON3A4) II: XBN:STDLT=HNOJ: (OIY3IEEH:HX 'IHIA3NOJ DSAH2 4X3N: BABTOLT=BUOS: « ME LNTNd:B"PHISINOT DRSh 
SEI-UNSHN :BHCHTHIHINIIH ITAIAZNOANIHLSSECHNIT : HE+N=UX SPRGE BOBSOLO9:LXEN: u NIAG:SOLTSHUUG: FB .LNITAG ASLh 
THNd=NdN3HLB=CBUNGCHINIBH) AL: LXIN:STOLT=HUOS: COINIII=H ZA LH DABNOT BrBDL EN: BBEOLT=MOCH:ALT+LSTIOI: BE ISANOG Apr 
T+MId=fIdNBHLB=CBANHCHINEI4) AT: IXIN:STOLT=HAOS: COINIIIEH: ST-A LH INDA0I BERDZ BOEPNIHLLS.=FHAL:SULI) AELF 
T=Td: THNdeNdNEHLI=(BUNHCOIAB34 II: IXAN:STOLT=UIOS: (HINZIHEH: 2-A LH IA3N0I BEIDE SE2 "IH 1SIMOANIHLI=ZAI BELH 
ST/ITHIATNOI:SSZ-UX=UKXNIHLSSECHXIT SIOBZ EZNIHLFT-ELSCOCHNTUHAE STiP 
S'+Nd=NdN3HLO=BUNHCOIHIFSDUNGI=SIT : LKAN: STOLT=UIOF: COINITI=H: HR IHINZHOI BTODZ «BE TZICBTIHEL RE LNTE That 
SIAT+IAMIUG : SST-HX=UKNIHLSSZCHXII 20002 "S+1S2X04: T-d3LSBCLAT=ZU0d OlAr 
UN+SSZ=UR : 2 "IT+ODAZNOANIHLODUNAT : 9-X=HX SABHZ P=2L :S=TCNIHLLCH=CHIELHT 2OLH 
ST 'IT+IABNOINIHLL=CIHT+IAINIIHET SORa2 2=20: T=TONIHLWAU=CSISLHT TöLt 
G=2d:A=ld: Ira 240304: Tefid: HI 'EHGZINOE BABIES wLANABT NMOLLNNOD BRuLNIAG:ASOLT=SAUI BOLr 
BASHOLOG: „DuLNIAd OSEIT LKaN: LXBN E Br-aFLSTZAAF-HOLH=T, gast 
EL ‘IT ’OLLIHM: IXIN:GOSOLT=YAOF DPZIT SI=TZNIHLZZOZ=BANGSEI=USI LSF 
IH! IH? „IHHZINNALSHISOHRNE . CHIAHLINTAG DEZIT H2=TZNIHLEZBZSHAOHBETSHIT :Z=I2 B9SP 
AR3N: WBLINNIu CHIRS" "WUNINIAG: CWIFIS! Mu CSIAULLNIAI:SSOLTSHNOF BEZTI 2-=SNEHLEI<ZII OGSh 
„BONS "AN TLNIAG: EINIG: T+ZN=ZN:LXIN BTETT GPEPOLOI:S=SNIHLEIZAT IS+Z=Z MeGr 
(SI$48=$ IH: Kd=IHNIHLIHCRIST :D TE+IADIOI:B TEHTATNOI: KA+CSIHSSCSINS BETT I+3Z=3ZNIHLSE">CHIONAUNHB=SYT BESF 
IXaN: Tu. INIBI: SOLTSHUOS: Yu uANTAd DRITT (E-5&C HIN) LNI=SSNIHLFDCTIUNNAT BEGh 
EL'ST/OLLIHM:LX3N:@OFOLT=HSO4 BEITT BS3ZNAHLE<IZAI BISh 
Kat u3LANNdu LNIAd GEITT LHBET CLL-)UNY=H Aust 
«HUN utCICTAISULSIELIIT! „LIBYMOTANIMISBI. "INTAI: uTn !ELtuSSOLSEIZAL. INIAG BTTTT 1EHI3NOI: I. LNIAG:BRDSSINSON:E "1 =X:B0OZ=4:LKEN GROE 
„L3ONHTIO INDu u WEULNTAG STATT SEBENIHLUACHCHISLUNG DULICHISCHT 9ERZ 
CCTARE-UL+I/CHNSEHIANG) INI=KI : BBBBZANSOI: ST TZ+IABNOI ATOLT SEOZNIHLuNSCHIFLHT: CHIFLLIO GEAR 
BSOGTNIHLICCKAISAHNOS "I<CAAL BOBTT ASUOHAER SID AILLSACHERUM."LNIAG BEBE 
ATTTIOLOD BZIAT BEBZOLOO: „ONHT MZ. "LNISINIHLEICCCHISASINITIT E02 
Q=RdNIHLECHAST :O9-CKARMSDLNI=RI STIAT CHIEIS! „BWYN BA.LNANI QEGZ 
Q=X4N3HLTCNIINHA>KIAT : CTAME-I/CHUISEH)=Rd BITOT H?.837121d$ “BETT „ LNISd: dSOLT=HU04: SAL T+IAFINI BALOE 
T=NdNIHLO=24400= 1431: BBBBZATıSUD GOTAT KASIELCASINS'CISIFISWIN: 45! „AFTFIAS FIILABIM LLLWINdNI:LREN BIBZ 
Tram: IT+ReN 3 TZHINDIOI: u LZUINLSFTOHG "u WE LNIAGORORSAENSOI: AT-Amh:9T-N=X BSORT iu „LNIS4:2OLT=YUIO4: REN: BBIOLT=HIOF BCOZ 
QOQTINIHLI=dAI : CL NAHZLAIUUS=IA BOOT „HIBEASW SINNZT NON I31dS NI3 BR WINTAd: LXEN:BBIOLT=HNOS BPRZ 
BITITOLOD: CZLKA+ZLAIUNSSIA: OH L1SDIOI: BSE-=Xd DEE ONMIENG TANOLIERBRIRTE.. Ch TPEHLLNT IH: LXIN :BUEOLT=HNOI: LKIN: IHNEN BZOLT=ENOI BERE 
QSZ-=Xd: „71 MI OIMA NIEI3ZAL AN. ‘LNIAG BTBL HT B-LBETHISBNOA: ART ISTNOG SER 
„ann N3SSYI83A SIANOW S3U.LNIG: „ATII3SEMHIS SHO NBEHH BI.‘ MuLNISd BOBL S’T/BINBMOL:E" TEILSARZOLOHINI: TTE+TAFMOI: 1 EZHTATIG: TTEZ+IABHNG BERZ 
QZOLOLOD:BSZ-=Xd: „LUMIM3A HIIS NIEGH FISE.uMuLNIAd 9099 GEL PHISINOI: DT *ISIMO4: BUT THLSTMOL: PT IHISTAUI:ESENSHISHNOI:ST PEHLSBNOG STAR 
18150109 115 AKBN: 2 ZLEPGHEBAOI: Zr (AIAOI: (BART+ROEKCTITNSSLNI=T: BZOLT=HNOA BTBZ 
O'HHISBNOANIHLEL=LAI:AL=IL: „U Ku ULCSTIAHLCBTIFÄHILNIUH STIS IKBN: TI /Z22PE4U2404:Q9T "HINOI:EZGZULPSET=HIOI: „LNINI BOB2 
Ira SHIABNOI: T+h EHINBNOI: A! I+IABNOS PIIS INN: U U+ZESINOI: NAY3I:ZI0LB=HUOI:ET BRBEANOG AT 
BBBLNEHLSSZCANORIAIT : Ata=a X HHIABNOI: N "ZH IABIOI: RK INFHOI EITS 23 G'FZIHLHT Br 
DIT+IABNOI:SSE=XNEHLOIKAI ZITS BDITHLBISIZEBEHBIHELZIBEISSETPZLTEST'2'OPE TZZSTHLHE DE 
BBOSNIHLO=CIT+IAYNIIHINHRDKAI TTIS SHEIEZIESEZIEIZTETZEATEZIEHZEZEST EHESEISCEIEHTET II SPULHN BE 
EITSOLOG:G=X: 2'9T+IADIOINIHLSSECKAI ATIS EIIIBPBIHITPEIIHZTOHZSGE ST HEZISGENLBET SEE" TIOIET OHLHO DI 
BBBINIHLL=CHT+IAYAZFIHANHSSZCHII EOIS az IANOg: FErIN=U: LRIN:B HHIANOT LO LE=HATH 5 
EITSNIHLBCKINUSSZIXII BRIS GEI=AL:SCZ=EL: TZEIG=OL 2 
RU+Kd=Kd: NUHR=N :G/CRBISEHMCHNINDS-NA=Kd ZUIG BRE-=IH:B' TBZESZHOI: 21 BBZESINNI:O! TE+IAZNOI:B"ITAOABNOI: ZLEPG= IS: BPEES=IN 1 





Wurm VC-64 


Der Wurm soll Futter 
(Herzchen) fressen, muß 
aber das Gift (Kreuzchen) 
liegen lassen. Er darf nicht 
gegen die Wand laufen 
oder sich selbst anbeißen. 


Passiert dies, skelettiert er. 
Die Todesursache wird an- 
gezeigt. Steuerung über 
Joystick (Control-port 2) 
oder über die Tastatur mit 
den Buchstaben I, J,K,M. 


Der Wurm startet bei der 
ersten eingegebenen Be- 
wegungsrichtung. Das An- 
zeigen der Todesursache 
u.s. w. kann abgekürzt wer- 
den durch Betätigen des 
Feuerknopfes oder einer 
beliebigen Taste während 
des Skelettierens. Bei der 
Punktberechnung wird die 


Länge des zurückgelegten 
Weges negativ berücksich- 
tigt. Jeder Spieler hat 3 
Würmer, wenn alles Futter 
gefressen ist, wird im näch- 
sten Level die Zahl des Gif- 
tes und die Geschwindig- 
keit erhöht. 

Dennis Merbach 


REM RR "WURM-3" er 
JO=585320:FB=12:FU=1:FWe7:FH=2:Fk=ed:r=3:5 
T5=199:55=34:F5=59:LW=5:A$="1":Br="M": 
PRINTCHREKBP "TI": 
„sOrbe "ARE 
FÜRA=OTI33: POKE1OS4+A. 182: POKESSFSSHR. 
FORA=RTÜIFZOSTEP48: FOKELDS4HA. IA: 
NEXT. TR=T 
FORA=SRTOL-1:PAiR9=15FHH+A  POKESIIFE 
FORFA=1TOF 
FF=1INTCHSAHRNDE 13 +42: IFPEEKT BSH ETHEHNZ2IS 
FOKEISZ4+HFF 83: PÜKESSZSE+FFSFH:NERAT: =1T06G 
FG=INTCRNDE 1 HABS) +4: IFFEEKEPG+1D24>CH3ETHENZS 
5 POKE1024+PG.43: POKESISZISHPG, FK'NEXT 
GETRE$: IFR&<H" "THEN2P3 
3 FRINT"WTFÜNKTE"5S5:FRIMT"8",, "LEYEL"; 
IFJ$=" J"THEN31O 
GETR$: IFR&="" THEN3OO 
GOTO1989 
IF<£FEEK(JODAHDLSI=1STHENS18 
FPOKES49, 8: R=9:GOTOLO1O 
GETR$ 
IFR$=AFTHENR=-48: GOTO1O04 
IFRS=E£STHENR=48: 50TO1EM4 
IFR$=C£THENR=-1 
IFR$=DFTHENR=1 
FORA=LTOLSTEP-1:FCRD=FCA-19NEKT:PCBD=PeedHR: IFPEEKUPCEDD 
FOKESI+PCOM, FWFOKEF(CAN. SL FÜKEF£I1D, 160: FOKEFÜLI, SE 
FÜRA=1ITOT: NEXT :N=N+1: IFJF="K" THENF®! 
J=PEEK£JO>: IFABSCRDSZAORND KG TFINDI 
IFABSER)C>ARANDE JANDE) 
IFABSER>Y<CHAANDEIANDA4 
IFABSERP<SPIANDE SANDS> 
GOTIIES4 
PA=FEEK(PIBPD: IFFR 
SF=5P+1:L=L+1:FiL>= 
IFT#ZPLTHENTESTE-4 
GOTO19R5 
IFP#=182THEHPEC >=" W5IChH DEN “OFF EINGERAN LBN = 
IFFS=43THENFEE De" HAT 5 s u 
9 F#£i>="NSICH SELBST AHo 
FOKERCOP.BL: u 
FORA=1TO1948 : NER 
> FOKES3231,13: PRINTCHRSC: 145 5" TERSBIRIGTEINTERNS] »IE HABE 
FÜRR=1TOSNF33:5=5-1: FRINT" alstelelsleiziafeieieleicieig" 
FÜRA=1TO1828:HEAT 
La=L%+l:SP=B: T=T72:6=6G+19: 
FÜRA=1T02288 : NEXT 'POKESEZE 
4295 PRINTCHRECI4>G 
421g FORA=ITOINTCH“3> 
215 N=&:PRINT,"MIDEL 
220 POKES49,9:FRINT"E 
BETNE:IFNE£LI" "THE 
BETHE: IFPEEKCJOPCFLZFTHENNES 
IFH£="" THEN4939 
IFH&<>Z"M"THENFRINTCH 
FRINTCHR& 3) SCHRERI4E 


2: 507050000 \ 


': DIMF« 1000) 


POKES3ZSL,FU: FOKES3293, FB: H=3:LR=1:L=LW: T=T$:0=65:F=F$ 


": POKESBSESEHR.T PÜKELF84+R, 182: NEXT 
FOREi1RS+A. 102: FOKEFIFSS+HR, 7: POKESSITSHRA, 


Z+A,FW:POKEFKAF, 1650: NEKT:POKEPCQ),B1 


u 


L#. "WUERMER" SW 


1.2 
12853 
1204 
1225 
1985 
1818 
1811 


3ZTHENZUOH 


THEHR=-42: G0T01204 
TOiaa4 
ATHENR=-1:GOTOIBEH 

ATHENR=1 


+iE PRINT" RRPUNKTE" 18: IFSE=FTHENSP=B: GOTOSOHEO 


=" Du "DIERDER!":GUTOSAOE 
alerRG" 
HAÄBEERT":F DERDER! " :GOTOSAUS 


:FOKES4ZTE 


DEN auRM GEFUETTERT!" 
"UBKTE:"SS "MO": NEKT:N=B 


SOTOSOLE 
+ 
ARIATEIMIEIEIN #LLE QUERMER SIND TOT!" 
I1:FRINT" SIalsteistelsgelaatztetaislengelel" 
HETZAHL" HI 

DICH EIN #PIEL € W357" 


"MUHETE:"3SS "NM "NEXT 


ug" 


AUFNEHMEN RUHSTOPFRESTORE DRUECKEN": 








D 
4045 IFHI<SSTHENHI=S 
4959 5F=3:5=0: GOT03 
5959 FORA=1T08588: NEXT: POKESIHFCED.E: EP(97,87 
5919 FÜRA=1TOL:GETAF: IFSO=1THENNEXT:3 TISeE 
5915 IFPEEKCJDDEDLZTORPEERS ZH SET 
Sp28 FORB=1T0128: NEXT: FOKESIHFERS SET A, 91: FOKEP(B) 87 NERAT 
5839 FORA=1T01868 : NEXT: POKESSESL, M:PRINTCHRE 14 TDRTelsTEe TER SURM HAT"; 
Sa4a FRINTP&C1IFORA=SITOLSQR:NERT:PRINT"I"FORA=1TOSER:PRINTPE£C2) ; :FORB=1TO1S 
5259 HEKAT:NEAT: FÜRA=1TOLDRAM:NERT 
SEEN Yeul-1: IFU=SATHENAERE 
em1A FOKES3281,FL:PRINTCHRFC1423, "TE L=LU: SP=A:GOTOIRE 
Ran FOKES4F.F:FRINTCHRECIIGS" EIER IITTE WAEHLEN 
ZHE1R FRIMT,"MANMM “FIELBEGINN" 
zaa1l2 PRINT,"A MR" :FRINT. "REM OECHSEL OrSTICK/ETEOARD" 
22915 PRINT," @":PRINT,"32@ OERTE RENDERM” 
2aBls FRIMT."A ":FRINT." MR DE" 
FRIMT,"MMMIITTE, AMMER EINGEREH” 
2 GETHE: IFFEEKCIMISPLZTTHENZERZI 
IFH#=""THEHN 22 
IFHE="1"ORHE=" 2" ORNE="3" BRHF=" 4" THENA=VALCHFICGOTOZRAZE 
SOTL2AE 
SHAGOTOZEHZL, 20932, 20948. 4035 
FRINTCHREC1429 5 "I": L=Lbl: F=F$ 
IFI&="J"THEHJF="K" GOTOZAREIR 
» IFIt="K" THEHJE=" I" GOTOZEABE u 
FRINT"IM IITTE WAEHLEN 2 
gm FRIHT, "MMag ANZAHL DES I IFTS":PRINT."A ":FRINT,"RSM ANZAHL DES —JTTERS" 
A PRINT." M "PRINT," MOM |ESCHWINDISKEIT" PRINT." " 
PRINT," MM _ICHTUNGSSTELERUNG" PRINT," "PRINT," SSE OURMLAENGE" 
PRINT." " 
FRINT,"M ":PRINT, "SS DERTE IN TRONUNG" 
GETHE: IFNE£=""THENZBASE 
IFNt=" 1" ORNE=" 2" ORNE=" A" ORNE="4" ÜRNE="S"ORHF="6" THENZBILOR 
31 GOTIZBREE 
4 A=VALCHE> :ONAGOTOZD1ZA. 20140, 20160, 20180, 20200, Zar 
FRIHT"IRANZAHL DES IIFTS:","MLTER OERT:" "PRINT, „"/EUER GERT"; 
IHMFUTGS:GOTOZRRAE 
FRIHT" TIRSLEISEANZAHL DES —ITTERS:" "ALTER CERT:"SFS:PRINT,," EUER OERT"; 
Sa IMFUTFS:GOTOZEM4R 
2 FRIMT"IOREM ESCHUINDIGKEIT:" "ALTER DERT:";TS:FRINT,,"/EUER OERT:"; 
£ IMPUTTS:GOTM2B@4E 
za130 FRINT'TIAMEIM-LCHTUHGSSTEUERUNG: MLTE DERTE:" PRINT," MEAUFWAERTS" A 
za1®i PRINT." MMEUAERTS" B#:PRINT,"MLIHKS" CO: PRINT. "RLECHTS",DE 
21532 FRINT."MBLEUE GERTE:" PRINT." MMUFUAERTS" 
22133 GETAF: IFA&=""THENZALSS 
ea1la4 PRIMTAF:FRINT,"MABURERTS" , 
22135 GETBE:IFE£=""THEN2R155 
22156 FRINTBF:FRIMT,"MLIHKS" 
2a197 GETCE: IFCE="" THEH2R1S7 
229183 FRINTCFFRINT,"M-ECHTS" 
29183 GETD®: IFDE=""THENZALESF 
2198 PRINTDE:FORA=1TC1998 : NEXT: GOTDZARAE 
29285 FRINT'"TIMERTAOSLRMLAENGE:" "MLTER GERT" SLU:PRINT," EUER DERT CMAX1B)"; 
292189 IMFLUTL:GOTOZBA4E 
Sega PRIMT" SIR" " IM m" 
52918 FRIHNT, "RR TR KIIRM EMI" SPRINT." — an 
50915 R=-2.7:FÜRA=14TOSSTEP-1:B=B+2.73 
Saa29 FRINTTAB<R3"TEIN"S:FÜRC=1TOB:FRINT" "5 :NEXT'FRINT"SPIEL”: 
59938 FÜRG=1TOZAR:NEKT: IFACL4THEHSBESE 
Sea4e PRIMNT,"M YOH":FRINT," MDENNIS MERBACHTITI' :FORC=1T0208B : NEXT 
52259 HEKT:FORA=ITOLEBA:HEHT:FRINTTARC13I"TGRÜSSARTIGES"  FORA=1T02988 : NEXT 
52068 FRIHT' MIEUSIEIRn JOTSTICK ODER KETEOARD CIZE>" 
Ssoara GETI£: IFPEEKCJIOICPIZF7THENJE=" I": GOTOZ 
59975 IFJ£="" THENSBOTR 
SsaQa39 IFIt="J"ORIF="K"THENZ 
52232 GOTISBH7E 


READY. 


G=55: T=T3:G0T0188 





Geisterjäger 


Geisterjäger ist ein weiteres Spiel 
unseres freien Mitarbeiters Den- 
nis Merbach für den VC-64. Es 
nutzt die interessante Sprite-Gra- 
fik-Fähigkeit des Gerätes, um Fi- 
guren über den Bildschirm zu be- 
wegen. 


In diesem Spiel jagt ein 
Geisterjäger die herab- 
schwebenden Gespenster 
fort, was ihmallerdings nur 
kurzzeitig gelingt. Dann 
haben sie ihn wieder er- 
reicht und versuchen ihn 
in den Burggraben zu sto- 
ßen und zu ertränken. 

Nur eine schnelle Auffas- 





1 PRINT"TII' :4VC=33248:51=54272: POKEYC+H21,0 


DATAA.34.9.,0.124.90,9,215,0.0, 
DATA2Z:! 237,24, 1,25: =,224,1; 
IATA2: »8,2,2559, 8:1, 127,0, 14 
= DATF@,6529,20,0,125,9.0, 153.9,8, 153 
DATA1E2,24,0.121.259.9,191.255.1 


DATAR. 69, 24.9,126,2.0.102.0,8, 


255 
2S5 


55.941, 


2153.9.2,.215 


2,9,255.9,20,1R2 


‚128,.28,255, 149,31, 


244,0:9,240.0,8 


sungsgabe bewahrt den 
Geisterjäger vor diesem 
Unglück. 

Mit den Tasten | und 2 
oder per Joystick kann der 
Jäger gesteuert werden 
und mit der Space-Taste 
oder der Feuertaste kann er 
seinen Speer gegen die 
Geister schleudern. 


187,156, 15,199 


»‚129,1,255.128,3,.259,128, 9,251, 128,93,253,8 


»2,9,629,2,0,24.8 
158,51, 102, R. ER 224.9,60.112,8,698,56 
1.2,14,199,112,159,195, 248 


4.809,54, 6 5 56, 6 542,0, 


270253: READB:FOKER.B:NEHT 


SATLIBEISTERS: READER: FOKER. B:POKER+L, 2: POKER+2,9: NEXT 


2,15: FOKEZR4L, 14: FOR 

VC+27 , 255 

=4T0145TEP2: FOKEWC+HA,BS 

ar=24a: FORA=3TO7:MECAI= 

9 PRINT"SRS":FORA=SLTOLZ:FRINT..." 

zı FRINT.,. "amm 
FOKER+51, 9: NEXT :FOKE2A1E. 223 

3 TERII=" ET TER D 

TELII=" I EIN SFIEL WON 1": 

TERHIe" I DENHIS MERBACH I" 

POKEWC+H21,4  POKEVYC+HIS 4 


“ammi RR 


2)= 


T$(Iı= 


4 FORA=SSTI3S5STEP-1:PÜKEWC+4, A:NEXT: PO) 


bog] "7077777 


METI2R4T:FOKER. LS: NEKT 
: FIKEWE+33, 2: PÜKEYC+H4R, 12: FÜRA=41 1045: POKEYC+HA, 1 NEXT :GOTD1RARRO 
FOKEWECHL+HR, TE: 

A-id-2 A: DEAD 


T 


INT, ," 


| GEISTERJREGER 


EwC+27,8 


"255-A445-1990) 9: HERT 
a I= Rue: 

U FORA=1994 102023: FOKER, 1ER: POKESI+HR, L2CHERTSPRINT"SS SS" 
": FORF=2H13T02015:POKEA,32 


NEXT 


j" 
" 


aa FORA=3ATÜOASTER-1: FOKEVC+H4AR:NEXT:POKEYC+16. 8: FORA=255TO2QSTER-1 :POKEVC+4,A 
NEKT: FORA=1 TO: FRIMT"EIONIN" : FORE=1TOS:PRINTRIGHT&CTSCBY,AD:NERT 


250 FOKEVC+4, 20+A#3  FORB=1TO3Q NEXT IHEKT 
FOKEVYC+16., 248: FÜKEWO+21,25 


de 


FÜRA=3T07 : FORB=SATOSRSTER-1 : POKEVC+HZ#R. B: NEXT: POKEVE+R?MSCA) 
FORE=3RTORSTER-1 : POKEVC+2#A, EB: NEXT :POKEVC+16,MSCA) :D=78 


FORB=255 
POKEVE+HL+ZHR.TD: NEXT NEXT 

PRINT" BIROTSTICK ODER KRETRORRD" 
GETAt: IFPEEKLS56321)=233THEHAF="J" 
IFA£S>" I" ANDAEC>"K" THEN45B 


TOKA#4S-1092)5TEF-1: POKEWO+Z#R, B: D=D-D<A> 


:GOTO472 


a POKEUC+1,Z21: POKEYC+3, 221: FORA=ATO159: FOKEWC, A:POKEYC+2, AR: NEXT 
FORF=183T0255: FOKEYC+4, A: NEXT: FÜKEWC+H16, 4: FORA=OT038 : POKEYC+4, A: NEKT 


Le4: IFA£="K"THENLe1 


2aoe FJ=158:5%=PJ: POKEVC+3@, 2: P3=50:P4=50:P5=59: P6=5g:P7=5Q: TIE="DARDRR" !C=d 
eaia POKEYC,FJ:FOKEVC+1, 221: POKEWC+Z,FJ:POKEWO+3, 221: POKEVC+27,255 


2929 FRINT"SI":FORA=1T015:FRINT" 


2508 J=FEEK(563219: IFCJANDST=RTHENPJ=PJ+5.6+0 


2581 IF@CJANDLI=ATHENFI=FJI-6.6-C 


",:NEXT 








25892 IF% JANDIE?=BANDSU<S=ERNDST=221 THENSU=1 

2593 IFSU>BTHENSY=3T7-16:5WU=SU-. BE 

2584 IFSWUC=RTHENSU=R: S7=221:5%=PJ 

2586 GETA£: IFAF><"V" THEN2512 

2518 GOT02312 

2512 IFPI>Z360RPI<24THENS9239 

2313 FOKES3249,$'Y7: POKE33E78, RM: POKES3248, 5X: FOKEI3259,PJ:C=C+.915 
25314 SC=PEEK (532787 : IFCSCANDEI=BTHENFI=49 : SU=O 

2515 P3=P3+1.6+C:POKE33255, P3: IFPI>=2QRTHENA=3: BOTOSIRRO 

2516 IFÜSCAHDIEI=16THENP4=4B: Sul=d 

2517 P4=P4+1.3+C:POKES3257 . F4: IFP4>=2RÖTHENA=4 : GOTOSOER 

2518 IFCSCANDIZI=3ZTHENFSI=4R:SWU=2 

2313 PS=PS+r2,0+[:POKES3259, PS: IFPS>=208THENA=5 :GOTOSOHET 

2328 IF@SCANDEG4I=B4THENPS=48 : Su=8 

2321 P6=P6+1.6+C:POKES3261,P&: IFPE>=ZRSTHENA=E : GOTISSEH 

2322 IFKSCANDI128?=125THENP?=48: Sll=0 

2523 P7=P?+1.2+C:POKESI2683, P7: IFP?>=288THEHA=7 : GOTOSASS 

2324 PRINT"R"MIDECTIE,4, 155": "RIGHTECTIE, 2): 50702588 

Ssasg IFFJICZ4THENPJ=24: 50702513 

So19 T£=TI#:PRINT' RUE SIE HABEN SICH ERTRAENKT I” 

5928 FÜKEWC+1,221:FORA=237 10255: POKEVI+Z, A: POKEYE,A:NEKT 

5838 FORA=221T0255: FOKEYC+3, A: PÜKEVI+LACNEKT 

S249 FU=WALCMIDECTSE, 3, DI IREOHALCRIGCHTELTE, 25) 

Sa58 PRINT, "MSIE HABEN SICH" PRINT, PU"SEKUNDEN" 

5855 PRINT" GEHALTEN" 

52659 PRINT" ALTER REKORD: " SHIS "SEKUNDEN": IFFU>HITHENHI=PU 
038 UAITSS321, 16,127: FORA=3TD7 : PÜKEVC+HZER, FR45- 190 FOKEWICHZEA+L, 23: NEKT 
S198 FOKEWC,159:POKEVC+1,221: POKEWC+HZ1, 255: POKEYI+2, 158: POKEYC+3, 221: 57=221:50=0 
Ss1i8 FORA=1T01528: NEXT: GOTOZAGB 

5ERO TE=TIE: P=PEEKCWCHRRZI POKEWC,FJPOKEYC+HL, 221: FORB=292T0221 POKEYCHARZ+1,B 
6812 HEKAT:RG=-1: IFPJ>PTHEHNRG=1 

6928 POKEVL+RRZ,P 

6238 IFP<>INT£PJISTHENP=P+RG: GÜTIEBEES 

eii4 P=P+2: POKEVCHARZ,P:POKEWE+HZ,P:POKEWO,P 

6855 IFP<ZS4THENEB4G 

5u5B PRINT"BIM DAS GESPENST HAT SIE ERTRAEHNKT!":GOTISIER 

18058 FOKEVE+21,15:POKEYC+HZ3, 15: FOKEWC+H2I, 15 

18818 POKEWC, 48: POKEVC+1, 288: POKEYC+2, 48: POKEYC+3, 298: FOKEVC+H6, 38: POKEWC+7,58 
10929 PÜKEWC+16.4: POKEWC+4 20: PÜKEWI+3,58 

18939 PRINTCHRECI4I,"M IEISTERJREGER” 

16848 PRINT"MANM IE IESPENSTER MÜECHTEN #IE FANGEN!" 

18558 PRINT" »ERSUCHEN #IE, SIE DARAH ZU HINDERN." 

1a8659 PRINT" INDEM IE SIE MIT DEM #PEER TREFFEN." 

10878 PRINT" #IE KOENNEN SICH NACH LINKS UHD NACH " 

1953@ PRINT" RECHTS BEWEGEN. ENTWEDER MITTELS" 

18158 FRIHT" 1” UND *2” ODER MITTELS WFSTICK," 

181194 PRINT" UND SIE KOENNEN MIT DER “wPALE’- " 

18128 PRINT" BZW MIT DER —LERTÄASTE DEN #FEER" PRINT" WERFEH." 
18130 PRINT"M -ALLEN #IE NICHT IN DEN IRABEN!" 

18148 FRINT," MERTIG?" 

18159 GETA£: IFA&=""THENiB15Q 

1981694 FRINTCHR$(C14235 "7" : POKEWIL+Z3, 0: POKEVC+H23, 0: POKEVC+21, 8: POKEWTC, 8: PÜKENCHZ, 8 
18178 GOTO113 


READY, 





VC-64-Sprites- 
Generator 


Erklärung des Programms: 

Zeile 20 Abfrage der Spriteanzahl (max. 4) 

Zeile 60 Abfrage der Speicherbereiche (11,13,14,15) 
Zeile 70 Abfrage der Zeilennummerab der die Datazei- 
len gespeichert werden sollen (größer als 1000) 
Ausgabe des Zeichenfeldes 

Klammeraffe: Löschen des Spritepunktes 

F1 übernimmt fertig gezeichnete Bytes in 
DATA-Zeilen 

Sprites zeichnen und berechnen des Sprite- 
Punktes 

Sprites übernehmen 

Unterprogramm Punkte setzen/löschen 
Löschprogramm 


Sprite-Grafik ist eine verhältnis- 
mäßig neue Form, um Zeichen und 
Figuren über den Bildschirm zu 
bewegen. Beim VC-64 lassen sich 
Sprites zusätzlich zum normalen 
Videobild auf dem Bildschirm dar- 
stellen. 


Zeile 100 





Zeile 200 


Zeile 400 
Zeile 650 
Zeile 690 


Einschränkend sei ver- 
merkt, daß maximal 4 ver- 


struktion von Sprites er- 
laubt. 


dings kein Problem sein, 


Das Programm soll das Er- das Programm entspre- 


stellen von Sprites erleich- 
tern, indem es durch die 
Cursorsteuertasten und 
die Space-Taste in einer 
24*21-Matrix die Kon- 


Nach Erstellung aller Spri- 
tes werden die entspre- 
chenden Bytes in Datazei- 
len übernommen und das 
Hilfsprogramm gelöscht. 


schiedene Sprites erstellt 
werden können, da mehr 
als 4 Sprites nicht problem- 
los abgespeichert werden 
können. Es dürfte aller- 


chend abzuändern. Außer- 
dem können die Sprites 
nicht in Multicolor erstellt 
werden. 

Rolf Werdehausen 


PRINT"TIIERSTELLEN YON SPRITES! 
PRINT"KUIEVWIEL SPRITES"; : IMPUTSZE 
IF YALCSZEILCERORVALLSZFIZ4THENGO 
SZ=1INTLVYAL(CSZFYF:PRINT"WIH WELCHE SPEICHERFLAETZE SOLL GEPOKT 
PRINT"FREI SIND: 11. 13.14 UND 1577 
PRINT :FORI=1TN52:FRINT"SPRITES NR"I"®@"; : INPUTSB:SBEII=SBH64 NERT 
PRINT"MDATA ZEILEN HR.: (>1aad) NuRERRRI" ; : IMPUTDAS$ 
IFYAL( DAF) <= 1BABORVAL DAFI>ESBSBTHENPRINT" TI": GOTO7O 
DA=INT<CYAL<DAF>> 

DIMBS(C21,35:1=8 

POKE646, 14: POKE198,8: I=I+1: IFI>SZTHENESE 

PRINT"TINSSSPRITES NR: "1"1" 

PRINT: FORZ=1T021: PRINTTABS11PZTARK 157" WR WR" NEXT 

FRINT" RED RZE ICHNEN 

PRINT" STIEURSOR/SPACE 

PRINT"M Hi LOESCHEN 

PRINT" MLRD> 

PRINT"WBI SENDE 

PRINT" macF1> 

SP=1:5=1:2Z=1:55=7 

PÜ=1024+5P+14+C22+27440 : IFPEEK{PÜ)=18BTHENPE=1 

ZE=179: FR=7:G05UB639:GETTF 

ZE=42: FR=14: 605UB658: IFPE=1THENZE=164: FA=7 : PE=8: GOSLUBESO 

IFT$=""THENZ1O 

REM SPRITES ZEICHNEN 

IFT$="M'ORTS=" "THEN34O 

IFT$="WM'THEN3S® 

IFT$="7" THEN438 

IFT£="W" THEN458 

IFT$="@"THEN4?7S 

IFASCCT#)=133THEN43Q 

GOTOZ1O 


WERDEN 4"; 








IFT$=" "THENIFPEEK£POF<DLSBTHENZE= 160: FA=7 :GOSLUBESR: BSCZZ, 5I7=BSCZZ, 53 +2 185 
IFSP=Z24ANDZZCZ1 THENZZ=ZZ+1 :5e1: SP=1:B5=7:G0T0219 
IFSP=24THENZ218 

SP=S5P+1:BS=E5-1:GOT0488 

IF5SF=1THEN218 

SP=5SP-1:BS=BS+1 

IFBS=- 1 THENBS=7:5=5+1:GOT0218 

IFES=8THENBS=9 : S=$-1 

GOTNZ218 

IFZZ<>1THENZZ=2ZZ-1 

GSOTO218 

IFZZ<>ZITHENZZ=ZZ+1 

GOTN218 
IFFEEK«POP<SD4ZTHENZE=42 : FR=14 : GOSUBESB : BSCZZ, S7=BS(22, 57-2185 
GOTO218 

REM SPRITES UEBERNEHMEN 

FZ=DA : DA=FZ+INTCCSZ+1835710>#19 

DAS=STRECDA>+ "DATA" 

POKE646 6: PRINT" I"STRECFZI+"FORJ=BTOG2 : READO : POKE"SBCIY"+J,Q: NEXT 
D1=8:FORZZ=1 1021: FORS=1T03 
IFLEN<DA$>>7OTHENDA=DA+18:FRINTLEFTFCDAS, LENCDAFI-1 3: DAF=STRECDAHLOIH" DATA" 
DAF=DAS+RIGHTSCSTRECBSCZZ, 579 , LENLSTRECBSCZZ,LSP II IH", " 
NEXT : NEXT 

IFDA$=STRELDA+183+" DATA" THENS48 

PRINTLEFT$<DA$,LENCDAF)-13 :DA=DA+18 j 
PRINT"S@DIMBSC21,3), 5BC "SZ" 3: =" 1" :52Z="5Z"  DA="DA+1O 

PRINT" 188" ; :FORN=1TOSZ :PRINT"SBC"N"Je"SBCNJ" »"; SNEXT:PRINT"M " 
PRINT"SO@OFZ="FZ+1 

PRINT"GOTOS®@" 

G0T0739 

END 

POKEPO, ZE : POKES4272+P0O, FA: RETURN 

ZA=18:ZE=1208 

POKE646, 6: PRINT" T6FOZR="ZE+10" :ZE="ZE+110" 
FORI=ZATOZESTEP18:PRINTI: NEXT :PRINT"GOTOSIR" 
IFI>788THENPRINT"TTPOKES46, 14" 

POKE631, 19: FORI=1T014:POKE631+1, 13: NEXT :POKE198. 15: END 


Fotosatz-Studio 
Belichtungs-Service 
Reproduktionen 
Druckformherstellung 
Plattenkopierstraße 
Ganzseitenumbruch 
über Bildschirm 
Konturenprogramm 
Postfach 1207 Daten-Fern-Übertragung 
3436 Hessisch Lichtenau über Post-Modem 
= Sa-Nr. 05602/4041 Weiterverarbeitung 
Tx] 994026 vogt d Ihrer EDV-Daten zu Fotosatz 

















Disketten- 
schutz für 


Apple II 


(Teil 2) 


Nachdem im letzten Heft ein Pro- 
gramm beschrieben wurde, mit 
dem Daten in einem nicht standar- 
tisierten Code auf Diskette aufge- 
zeichnet wurden, wird hier nun ein 
Verfahren vorgestellt, das nur be- 
fugten Personen die Benutzung 
der Diskette erlaubt. 


Das Wesentliche beieinem 
solchen Schutzsystem ist, 
daß der Benutzer keine 
Möglichkeit besitzen darf, 
in das Operationssystem 
(hier Applesoft-Basic mit 
DOS) zu kommen. Dies 
wird durch das Programm 
DOS PROTECTOR (Abb. 
1) gewährleistet. Alle Ab- 
bruchbefehle wie RESET, 
CTRL-C, Erzwingen einer 
Fehlermeldung und auch 
IRQ und NMI werden von 
einem mit diesem Pro- 
gramm geänderten DOS 
mit einem „Aufhängen“ 
des Systems quittiert. 


Um dieses Verhalten zu er- 
reichen, werden im DOS 
auf Diskette einige Bytes 
geändert. So wird zum Bei- 
spiel der Programmteil 
„Fehlermeldung ausge- 
ben“ so modifiziert, daß er 
die gleiche Aktion wie die 
RESET-Taste ausführt, 
nämlich den Sprung in ei- 
ne Endlosschleife. Außer- 
dem wird ein CTRL-C-Fil- 
ter eingebaut. Wirkung: 
siehe oben. 


Um nur befugtem Bedie- 
nungspersonal einen Zu- 





griff auf Diskette zu ge- 
währleisten, ist die Einga- 
be eines Codewortes sinn- 
voll. Ein konstantes Code- 
wort allerdings schränkt 
dessen Funktion ein, da die 
Gefahr des „Abguckens“ 
doch relativ groß ist. Daher 
verlangt das Programm 
SPERRE, das in Abb. 2 zu 
sehen ist die Errechnung 
des einzugebenden Code- 
zeichens. Eine 5 Zeichen 
lange Zeichenfolge, in der 
genau zwei Zahlen zwi- 
schen 0 und 4 vorkommen, 
wird angezeigt. Diese zwei 
Zahlen müssen addiert 
werden und das Ergebnis 
„geshiftet“ werden. Das 
heißt, die erhaltene Zahl 
muß zusammen mit der 
SHIFT-TASTE gedrückt 
werden. Eine Ausnahme 
bildet die Zahl 0: wenn sie 
als Summe erscheint, muß 
die Leertaste gedrückt wer- 
den. Als benutzerspezifi- 
scher Wert steht in Zeile 
999 als DATA-Wert der Na- 
me der Diskette, der im 
oberen Bildschirmteil er- 
scheint. Bei einer falschen 
Eingabe reagiert das Pro- 
gramm mit ... Aber lassen 
sie sich überraschen. 





Das Programm SPERRE 
ruft seinerseits das Pro- 
gramm HELLOI auf. Die- 
ses Programm stellt ein 
einfaches Menüprogramm 
dar, das sich als Auswahl 
für bestimmte Programme 
eignet. Auch hier erschei- 
nen die benutzerabhängi- 
gen Werte in DATA-Zei- 
len. In Zeile 999 wird der 
Name der Diskette abge- 
legt. Ab Zeile 1000 sind 
dann die einzelnen Pro- 
grammnamen gespeichert. 
Als Zusatz zum Pro- 
grammnamen wird noch 
eine Ziffer abgerufen, die 
die Art des Programmauf- 
rufs spezifiziert. 1 steht da- 
bei für BRUN, 2 für RUN 
und 3 für EXEC. 


Die Programe sollen nun 
etwas genauer untersucht 
werden. 


Zuerst DOS PROTEC- 
TOR: Diese Routine liest 
bestimmte Sektoren der 
Diskette ein, ändert einige 
Bytes und schreibt dann 
die geänderten Sektoren 
wieder auf die Diskette zu- 
rück. In den Zeilen 70, 110, 
140, 170, 200 und 220 wird 
der einzulesende Sektor 
definiert und mit einem 
GOSUB 1040 gelesen. 


Was bewirken jetztaber die 
einzelnen POKES? In den 
Zeilen 70-100 wird der Teil 
des DOS geändert, der spe- 
zifiziert, welche Werte in 
den Speicherstellen 3DO- 
3FF stehen. In Zeile 90 
werden diese Werte so um- 
gestellt, daß die Speicher- 
stellen von 3EF bis 3Fl 
und von 3F5 bis 3FF alle 
den gleichen Wert enthal- 
ten, nämlich ein JMP 
($03F2). Dieser Befehl be- 
wirkt einen Sprung zu der 
Adresse, die in $3F2 abge- 
legt ist. Genau das passiert 
aber auch bei einem RE- 
SET. Die Zeile 80 ändert 
den Teil des DOS um, der 
die RESET-Adresse er- 





rechnet. Normalerweise 
wird nämlich in $3F2 und 
S3F3 die gleiche Adresse 
wie in $3D1 und $3D2 ge- 
speichert. Anstelle dessen 
steht dort nun die absolute 
Adresse $3F8. Da dort ein 
JMP ($S03F2) steht, führt 
ein Reset zur Endlosschlei- 
fe. 


Zeile 120 bewirkt, daß, 
wenn nach einem LOAD- 
Befehl, aber vor Rück- 
sprung in das Basic CTRL- 
C gedrückt wird, dieser Ta- 
stendruck ignoriert wird. 
Er würde nämlich vom 
DOS nicht verarbeitet wer- 
den und somit auch nicht 
zur Endlosschleife führen. 
Zeile 180 ändert das Feh- 
lermeldungsmodul, so daß 
ein Sprung in die Endlos- 
schleife erfolgt. 


Zeile 205 schließlich er- 
stellt den CTRL-C-Filter 
und den Unterprogramm- 
teil, der CTRL-C nach ei- 
nem LOAD-Befehl unter- 
drückt. Die Zeilen 150 und 
230 sorgen dafür, daß die- 
ser CTRL-C-Filter auch ak- 
tiviert wird. 


Die Zeilen 1000-1035 stel- 
len ein Unterprogramm 
dar, das den IOB (I/O-Con- 
trol-Block) lokalisiert. Die- 
ser IOB wird in den Unter- 
programmen in den Zeilen 
1040-1060 und 1070-1090 
benutzt, um die RWTS 
(Read or Write a Track and 
Sector) zu steuern. 


Nun zur Analyse des Pro- 
gramms SPERRE. In Zeile 
1 werden zunächst zwei 
Zufallsfunktionen defi- 
niert. Die Funktion RI lie- 
fert den ASCII-Wert eines 
zufälligen Zeichens zwi- 
schen 0 und 4, generiert al- 
so eine Zufallszahl. Die 
Funktion R2 hingegen ge- 
neriert ein zufälliges Zei- 
chen zwischen $ und /. Zei- 
le 4 ist sehr interessant. 
Hier wird nämlich in RL 
und RH der momentane 
RESET-Vector gespei- 





chert. Anstatt dessen wird 
dort der Wert SE199 ge- 
speichert. An dieser Stelle 
steht die Applesoft-Fehler- 
meldung „Illegal Quantity 
Error“. Wichtig ist an die- 
ser Stelle der Befehl CALL 
-1169. Warum, wird an spä- 
terer Stelle erläutert. In 
Zeile 5 steht nun der Be- 
fehl ONERR GOTO 210. 


Durch die Änderung des 
RESET-Vektors wird also 
bei RESET die oben ge- 
nannte Fehlermeldung 
ausgegeben. Diese wird 
aber vom ONERR GOTO- 
Befehl abgefangen und 
führt zu einem Sprung 
nach Zeile 210. Damit wur- 
de also der Befehl ON RE- 
SET GOTO 210 simuliert. 
Die Zeilen 10-40 führen zur 
Ausgabe des oberen Bild- 
schirmteils. Wichtig sind 
wieder die Zeilen 50-70. 
Diese Zeilen entstanden 
aus der Notwendigkeit, die 
Zufallsfunktion RND(I) 


wirklich zufällig zu ma- 
chen. Denn das ist sie kei- 
nesfalls. Dieses kann mit 
Hilfe eines kleinen Pro- 


gramms leicht bewiesen 
werden, das als HELLO- 
Programm auf Diskette ab- 
gelegt wird, und Zufalls- 
zahlen erzeugt. Nach dem 
Kaltstart des Systems wer- 
den dort immer die glei- 
chen Zahlen erscheinen. 


Daher warten die Zeilen 
50-70 des Porgramms 
SPERRE aufeinen Tasten- 
druck. So lange dieser nicht 
erscheint werden „Dum- 
my-“ Zufallszahlen er- 
zeugt. 


Die Zeilen 95-180, die 
durch die FOR-NEXT 
Schleife in Zeile 90 insge- 
samt 5 mal durchlaufen 
werden, fordern den Be- 
nutzer zur Eingabe eines 
Codezeichens auf. Da die- 
se Zeilen relativ komplex 
aufgebaut sind, würde eine 
Analyse hier zu weit füh- 
ren und bleibt dem Leser 
selbst überlassen. 











Die Zeilen 210-310 werden 
bei einer Fehleingabe 
durchlaufen. Das Ergebnis 
soll hier nicht verraten wer- 
den, sondern selbst aus- 
probiert werden. 


In Zeile 500 wird wieder 
der alte RESET-Vektor zu- 
rückgeschrieben. Der 
CALL 1002 ist zur Reakti- 
vierung des DOS unbe- 
dingt notwendig. 


Der Befehl CALL -1169, 
der nach jeder Modifika- 
tion des RESET-Vektors 
auftaucht hat folgenden 
Sinn: Um unterscheiden 
zu können, ob der Rechner 
gerade einen Einschalt-Re- 
set ausführt oder einen 
Lauf-Reset, wird in der 
Speicherstelle $3F4 ein be- 
stimmter Wert abgelegt, 
der vom Autostart-Moni- 
tor-ROM abgefragt wird. 
Sollte dieser Wert vorhan- 
den sein, so wird ein JMP 
(S0O3F2) ausgeführt, an- 
dernfalls ein Cold-Boot. 
Um diesen Cold-Boot zu 
verhindern wird der Befehl 
CALL -1169 verwendet, 
der diesen bestimmten 
Wert in $3F4 schreibt. Da 
dieser Wert nicht konstant 
ist, muß er nach jeder Mo- 
difikation des RESET-Vek- 
tors neu errechnet werden. 
Näheres dazu findet sich in 
)-(6). 


Das Programm HELLOI1 
ist sehr einfach aufgebaut. 
Auch hier findet der 
ONEER GOTO-Befehl 
Verwendung. Er wird be- 
nutzt, um das Ende der Da- 
ta-Zeilen zu erkennen. In 
Zeile 10-55 wird der Bild- 
schirm erstellt. Die Zeilen 
60-80 geben die in den DA- 
TA-Zeilen gespeicherten 
Programmnamen mit ei- 
nem vorausgestellten 
Kennbuchstaben aus. Da- 
bei ist anzumerken, daß ei- 
ne Leere DATA-Zeile eine 
Leerzeile auf dem Bild- 
schirm bewirkt (siehe Zeile 
70). In Zeile 99 wird der 
ONEER GOTO-Befehl 





wieder gelöscht, und es 
wird die Eingabe des Kenn- 
buchstabens vom aufzuru- 
fenden Programm ver- 
langt. Nach dessen über- 
prüfung (Zeile 120) wird 
der entsprechende Pro- 
grammname auf dem Bild- 
schirm mit blinkender 
Schrift gekennzeichnet 
(Zeilen 140-185) und das 
Programm aufgerufen 
(Zeilen 190-210). 


Eine optimal geschützte 
Diskette würde also das 
Bootprogramm das Pro- 
gramm HELLO von der 
SYSTEM MASTER-Dis- 
kette enthalten. Dieses 
Programm würde dann das 
Programm SPERRE aufru- 
fen. Von dort aus wird dann 
das Menüprogramm HEL- 
LOI aktiviert. 


Wichtig: Aus den im ersten 
Absatz geschilderten Be- 
dingungen darf natürlich 
kein Programm mit dem 
END-Befehl aufhören. 
Dieser Befehl bewirkt 
nämlich genau das, was mit 
dem Schutzsystem verhin- 
dert werden soll: den Aus- 
stieg in die Kommando- 
ebene des BASIC. Der Be- 
fehl END sollte ersetzt 
werden durch CALL 1016. 
Damit wird ein Sprung in 
die Endlosschleife er- 
reicht. 


Der Autor möchte noch er- 
wähnen, daß dieses System 
keineswegs absolut knack- 
sicher ist. Es ist aber eine 
einfache Möglichkeit, nur 
befugten Personal Zugriff 
zu bestimmten Disketten 
zu gewähren. Das typische 
Vorgehen beim Erstellen 
einer geschützten Diskette 
ist wie folgt: 


Zuerst, wie im DOS-Ma- 
nual beschrieben, das 
Standard-Hello-Programm 
von der System-Master- 
Diskette so modifizieren, 
daß das Programm SPER- 
RE aufgerufen wird, nach- 
dem die Language-Card 








geladen wurde. Der ver- 
bleibende END-Befehl ist 
zu ersetzen durch CALL 
1016. Mit diesem Pro- 
gramm als Boot-Programm 
die Disketten nun initiali- 
sieren. Jetzt die Program- 
me SPERRE und HELLO1 
auf die neu initialisierte 
Diskette kopieren. Dabei 
jeweils den in Zeile 999 ab- 
gelegten Diskettennamen 
ändern. Im Programm 
HELLOI sind daraufhin in 
die DATA-Zeilen ab 1000 
die wählbaren Programme 
einzutragen (Bitte nicht 
die Codeziffer für den Auf- 
ruftyp vergessen). Eine 
leere DATA-Zeile bewirkt 
dabei eine Leerzeile auf 
dem Bildschirm. Als letz- 
tes werden die Programme 
auf die Diskette kopiert. 


Bei Basic-Programmen ist 
dabei jeder END-Befehl 
durch CALL 1016 zu erset- 
zen. Bei Maschinenpro- 
grammen ist das Vorgehen 
wesentlich komplizierter. 
Diese Beschreibung würde 
den Rahmen dieses Arti- 
kels sprengen. 


Damit ist die Diskette 
bootfertig. Um sie nun zu 
schützen, muß zuerst das 
Programm DOS PROTEC- 
TOR aufgerufen werden, 
mit dem das DOS modifi- 
ziert wird. Danach kann 
das Programm SPECIAL 
DOS aktiviert werden, mit 
dem die Daten im Spezial- 
Format aufgezeichnet wer- 
den. Damit ist die Diskette 
geschützt und fertig für die 
Verwendung. 


Vorschläge und Anregun- 
gen zu diesen Programmen 
richten Sie bitte an die Re- 
daktion. 


Jörg Bliesener 
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OPOT ANSOD :G = StT = 1 041 

0101 aNSD9 091 

Ib'BZL IMO4 TLSLZL DMOH SSLTIIZL DOG SIBTGZL FN0I SEAT BZL DIDI 29 

SILZL IN04 SSEH'ZZL DO SITTTZL DOG 269T°OZL DMOH BILL MMO SBOZ'FLS DMOI SZL'SLS MO OST 
OPOT ANSO9 :0 = S:0 = 1 OPT 

0201 aNS09 DOLT 
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.. Obwohl für den Apple ge- | VTAB bedeuten: 
ro © en schrieben, paßt das Pro- | ‘Lösche Bildschirm‘ und 
gramm in jeden Rechner. | ‘Vertikal-Tabulator‘. 
Die Befehle HOME und 


50 HOME : VTARS 

52 PRINT "HOEHLE NR. 1": PRINT 

55 PRINT "TROLL: "DU DARFST DIR SOVIELE KUPFER- MUENZEN NEHMEN WIE DU WILLST. 
DAZU SCHENKE ICH DIR SCHLUESSEL NR 1." 

68 PRINT : INPUT "TROLL: ”ALSO WIEVIELE MUENZEN WILLST DU NEHMEN?’ "5A$ 

65 KM = VAL (A$):BM = 0:5 = 1 

10@ HOME : VTAR S 

102 FRINT "HOEHLE NR. 2": PRINT 

118 PRINT "TROLL: ’DU BEKOMMST SOVIELE KUPFERMUEN- ZEN WIE DU BRONZEMUENZEN HAST 

UND UMGEKEHRT.” " 

120 KM = KM + BM:EM = KM 

130 GOSUB 5006 

208 HOME : VTAB 5 

202 PRINT "HOEHLE NR. 3": PRINT 

210 PRINT "TROLL: "WENN DU WENIGER ALS 3 MUENZEN HAST, DANN SCHMEISSE ICH DICH IN 

EINE BODENLOSE GRUBE’" 

220 IF BM + KM < 5 THEN 300 

230 GOSUR 5008 

290 GOTO 400 

300 GOSUB 5000 

310 HOME 

320 END 

408 HOME » VTAB S 

4062 PRINT "HOEHLE NR. 4": PRINT 

410 PRINT "TROLL: "ICH NEHME MIR ZWEI BRONZEMUEN- ZEN VON DIR!”" 

420 BM = BM - 2: IF BM < © THEN BM = ® 

430 GOSUB 5006 

500 HOME » VTAB 5 

502 PRINT "HOEHLE NR. 5": PRINT 

510 FRINT "TROLL: "ICH JAGE DICH ZURUECK, WENN DU MEHR ALS EINE BRONZEMUENZE BEI 
DIR HAST." 

520 GOSUB 5008 

530 IF BM > 1 THEN 490 

600 HOME : VTAR S 

602 PRINT "HOEHLE NR. 6": PRINT 

618 PRINT "TROLL: "WENN DU KEINE BRONZEMUENZEN HAST DANN MUSST DU DIE TUER ZU DER 
DEIN SCHLUESSEL PASST DEFFNEN!”" 

6208 GOSUR 5006 

630 IF BM > < ® THEN 700 

648 IF S<« 5 THEN 8090 

659 HOME : VTAR 12 

652 PRINT "HOEHLE NR. 7": PRINT 

660 PRINT "ZAUBERER: ”WENN DU MEHR ALS ZWEI KUPFER- MUENZEN HAST VERWANDELE ICH 

DICH IN EINEN WURM!?" 

670 GOSUB 5000 

680 HOME : VTAB 12: IF KM > 2 THEN PRINT "DU BIST EIN WURM.": END 

69@ PRINT "DU HAST ES GESCHAFFT...": END 

700 HOME : VTAB 5 

792 PRINT "HOEHLE NR. 9": PRINT 

710 PRINT "TROLL: "ICH TAUSCHE DEINEN SCHLUESSEL GEGEN DEN NAECHST HOEHEREN. 
WENN DU MIR SCHLUESSEL NR.S GIBST, DANN FRESSE ICH DICH." 

720 IFS< 5 THENS =S + 1: GOSUB 5000: GOTO 900 

730 GOSUB 5008 

748 PRINT "TROLL: ”ICH HABE DICH VIERMAL GEWARNT!”" 

750 END 

800 HOME : VTAB S 

802 PRINT "HOEHLE NR. 8": PRINT 

810 PRINT "DU BIST IN EINE HOEHLE VON MENSCHENFRES-SENDEN BANDWUERMERN GERATEN UND WIRST GERA 





DE VERSPEIST.": END 

908 HOME : VTAR 5 

982 PRINT "HOEHLE NR. 18": PRINT 

918 PRINT "TROLL: "ICH TAUSCHE DEINE BRONZEMUENZEN GEGEN KUPFERMUENZEN. ”" 

920 KM = KM + BM:EM = ® 

930 GOSUB 5080 

1088 HOME : VTAB 5 

1002 PRINT "HOEHLE NR. 11": PRINT 

101@ PRINT "TROLL: ’ICH GEBE DIR EINE BRONZEMUENZE.”" 

1020 BM = BM + 1 

1030 GODSUB 5000 

11088 HOME : VTAB 5 

1182 PRINT "HOEHLE NR. 12": PRINT 

1118 PRINT "TROLL: ”ICH NEHME MIR ZWEI KUPFERMUEN- 

1120 KM = KM - 2: IF KM < ® THEN KM = @ 

1130 GOSUB 50008 

1208 HOME : VTAB 5 

1202 PRINT "HOEHLE NR. 13": PRINT 

1218 PRINT "TROLL: "DU DARFST NACH OBEN, WENN DU KEINE KUPFERMUENZEN MEHR HAST. 
ANDERNFALLS GEHT ES DURCH DEN ZWEITEN AUSGANG ZURUECK!” " 

1230 GOSUB 5000 j 

1240 IF KM = ® THEN 108 

1250 GOTO 1908 

4999 END 

50008 PRINT : PRINT "KUPFERMUENZEN: "5KM 

5018 PRINT "BRONZEMUENZEN: ";BM 

5020 PRINT "SCHLUESSEL NR.: "55 

5030 PRINT : PRINT "DRUECKE EINE TASTE. "5: GET A$: RETURN 








EXPLORING SPECTRUM BASIC £4.95 An ideal complement to the Sinclair manual. Over 50 games. application & utility programs 


plus explanations of programming techniques. Mike Lord. 192 pages. 
THE EXPLORERS GUIDE TO THE ZX81 £4.95 The book for the ZX81 enthusiast, now in edition 2 with 152 pages of games 
“ engineering & utility programs plus much useful information on machine 
language and hardware. Mike Lord 


WAKE UP YOUR ATOM £4.95 20 gieat programs to make the most of your Atom; including the colour board (old or new type) if fitted 
P 


lus copious programming tips. Brian Lloyd. 

THE ATOM MAGIC BOOK £5.50 A wealth of games and other programs plus much useful software and hardware information 
Mike Lord. 

Also available 
MASTERING MACHINE CODE ON YOUR ZX81 ToniBaker 180pages £750 WHAT CAN IDO WITH IK? Roger Valentine £4.95 
GETTING ACQUAINTED WITH YOUR ZX81 TimHartnell £4.95 ATOM RAM BOARDS SAE tor details. 
GETTING ACQUAINTED WITH YOUR ACORN ATOM Tim Hartnell & Trevor Sharples £ 7.95 ATOM ROAM BOARDS 135.00 inclusive Software switch 
PRACTICAL PROGRAMS FOR THE BBC COMPUTER & ACORN ATOM D. Johnson-Davies £5.95 between 3 utility ROMs and 4K RAM (fitted) to load your own 


nlities from tape or disc 
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Computerhirn 
Mastermind 


Für den CBM stellt Homecompu- 
ter heute 2 Mastermind-Versionen 
vor. In der einen erhält der Spieler 
die Option, selbst den versteckten 
Code zu finden, oder dem Compu- 
ter die Aufgabe zu stellen! In der 


anderen spielen zwei 


Spieler 


gleichzeitig gegeneinander und je- 
der kann das Ergebnis des Geg- 
ners mit auswerten, um die Lösung 


zu finden. 


Mastermind 1 


Nachdem man das Master- 
mindprogramm eingeta- 
stet hat, darf man nicht 
gleich mit RUN starten! 
Zuerst wird RUN 2000 ein- 


gegeben. Dabei wird erst 
einmal überprüft, ob man 
die Zeilen 0 bis 5 exakt ein- 
gegeben hat. Das ist nötig, 
da dort das Maschinenpro- 








gramm hingePOKEd wird. 
Wenn alles in Ordnung ist, 
dann kann man das Pro- 
gramm starten. 

Wenn der Computer die 
Zahl raten soll, dann wen- 
det er folgende Strategie 
an: 

Zuerst nimmt er Zufalls- 
zahlen als Versuch, bis er 
alle Ziffern einmal probiert 
hat; höchstens jedoch drei 
mal. Daß er alle in der Lö- 
sung vorkommenden Zif- 
fern einmal probiert hat, 
merkt er daran, daß die 
Summe von allen Schwar- 
zen und Weißen gleich 
Drei ist. Dabei kommt kei- 
ne Ziffer doppelt vor, weil 
Ziffernkombinationen mit 
Ziffern, die schon einmal 
vorkamen, am Anfang 
nicht so informativ sind. 
Für den Menschen ist es 
vielleicht einfacher, wenn 
er auch schon am Anfang 
Ziffern wiederholt verwen- 
det, weil er dann nicht so 
viel denken muß. Den 
Computer stört das nicht. 
Falls unter den ersten drei 
Versuchen keine Ziffer 
doppelt vorkommt, weiß 
der Computer nach drei 
Versuchen, wenn man ihm 
noch nicht drei Schwarze 





und Weiße gegeben hat, 
daß die noch nicht probier- 
te Ziffer in der Lösung vor- 
kommt. 

Dann wird erst das Maschi- 
nenprogramm benutzt. 
Und zwar wendet es fol- 
gende Strategie an: Es 
zählt von 000 bis 999. Bei 
jeder Ziffernkombination 
gehtesalle Versuche durch 
und berechnet bei jedem 
Versuch, wieviel Schwarze 
und Weiße es hätte erhal- 
ten müssen, wenn die an- 
genommene Kombination 
die Lösung wäre. 

Wenn es bei allen bisheri- 
gen Versuchen genauso- 
viele Schwarze und Weiße 
berechnet, wie es auch be- 
kommen hat, so verwendet 
es die laufende Ziffern- 
kombination als nächsten 
Versuch, d.h., daß es als je- 
weils nächsten Versuch die 
kleinste Zahl nimmt, bei 
der die Annahme, daß es 
sich um die Lösung han- 
delt, zu keinem Wider- 
spruch zu den bisherigen 
Versuchen führt. 

Die Versuche werden nicht 
in dimensionierten Variab- 
len, sondern in den zwei- 
ten Kassettenbuffer abge- 
legt. 





REM COPYRIGHT 
REM 
REM 
REM 
REM 
REMCOMPUTER 
a GOATO3RA 

75 RE=10#RNDE1: 


Pomp: 


89 FOKEZES 


N=H+5 
a IFETHENi140 
2 GOTO43E 
ze EHI 


FRINT" EIG 


320 PRINT:FRIMNT: 
SELBER SFIELEN? 


242 FORW=1TRIE 








Br CORNELIUS GEFPERT 


IFZSRAZ>THEN?S 


77 ZCR@)=L RETURN 
,H:STS1A68 
ıme Ar=PEEK 269) : BZ=PEEK (268) :CX=PEEK (267) 

a IFFEEKLZ7ID=ATHENFRINT:FRINTTAB(FP"ERRARE HUMAHUM EST": 


IFAt="N"THENPRINT" 


". 
F 


S32 IFR&="N"THENWAIT1SR,1:GETBE:GOSLURIARR 
329 N=2:POEE2SO,. 
34a FORM=257T0270 : POKEM,N:NEHT 
=:NEXT:FRINT"T 
245 IFAF="J"THENE=A:GOTOIOZE 
»47 IFR£="J"THENE=1:G0T01a2@ 


1° 


SOLL DER COMPUTER GEGEN" 


HOMELOMPUTER-HOMECOMPUTER-HOMECOMPUTER-HÜMECOMPUTER-HOMECOMPUTER 
HOMECOMFUTER-HOMECOMPUTER-HOMECOMFUTER-HÜMECHMPUTER-HOMECOMPUTER 
HIMEZOMPUTER-HOMECOMFUTER-HOMECOMPUTER-HOMECOMPUTER-HOMECCMPUTER 
HLIMECOMPUTER-HOMECHMPUTER-HOMELOMPUTER-HOMECOMPUTER-HÜMECOMPUTER 


a FEINT"I MA HOMECOMPUTER - MASTER - MIND" 
HOLLEN SIE DIE ZAHL RATEN? ”; 

GETR&£: IFR£=""THENSIA 
GOSLBLIGE:AF=BE 


G0T01258 


"PRINT: PRINT" 





SICH 
































SOSUB?S: AZ=RE: GOSUB7S: BA=RR : GOSUR7S:CHSRE 

IFE=1THEN1140 

IFN=STHENFRINT"SRRMERSUCHT 

FRINT:PRINTAZBACH 

PRINT: INPUT" WIEWIELE SCHWARZE UND WEISSE "55.W:SU=SU+S+U 
IFS+WP3THENPRINT" MAN Mi E MASTER-MIND SPIELEN KOENNEN!" :GOTD442 
FOKEBIS+N, X: POKESST+N, FOKESSS+H. CH: POKESSFS+N,S:FOKESAD+N. U 
GOSURI3DM 

IFSU<CIANDNG1EOTHENN=N+5:GOTO359 

IFS<ITHEHNSR 

PRINT:PRINT"ICH HABE NUR" NZS+L"VERSUCH"LEFTEC"E" , LANDN>@)" GEBRAUCHT" :GOTOI2 


A=INTCLAHRENDELDS:R=INTELRERNDCLII:C=INTCIAHRNDELID 

IFE=1 THENI6R 

INMFUT"MUIE LAUTET DER ERSTE VERSUCH "W:GOTO111R 

GOSLURA3OD 

IFE=BTHENN=H+S 

IFSU<3ANDHELARNDETHENN=N+5: GOTOISR 

IFSC3ANDETHEHBE 

IFETHENSAR 

IFS{3THENIESR 

FRINT:FRINT"SIE HABEN NUR"NZS+L"WERSUCH"LEFTEC"E"  LANDN>DM>" GEBRAUCHT" :GOTO 


INPUT"WIE LAUTET DER NRECHSTE VERSUCH" 

Ar=V/1B0+1E-4 

BA=1OmCV/188-INT<V/LO@I+1E-3) 

CAw1DMCV/LO-INTCVrIBDHLE-33 
Si=1:52=51:53=51:34=51:55=31:565=51:5=0:U=5 

IFA=AZTHENS=5+1:51=0:52=51 

IFBA=BTHENS=5+1:53=0:54=53 

IFCA=CTHENS=5+1:55=0:56=55 

IFAR=BANDSZANDSITHENMEU+L: S2=0:53=52 

IFAZ=CANDSZANDSSTHENW=EW+1:55=0 

IFA=BAANDSIANDS4THENWU=W+1:51=0:54=51 

IFBA=CANDS4ANDSSTHENU=U+L 

IFA=GZANDSIANDSSTHENW=U+1 :55=8 

IFCA=BANDS3ANDSSTHENW=L+1 

POKEBIS+N, AR: POIKEB37+N, BX : POKEBFO+HN, CH PÜKEBSF+N, S: FOKEIBG+N, U SU=SU+S+W 
SOTO1OSB 

PRINT " SÜRLGURTMTSLKTATNTKURDEIKTMTEUSTRTSTSTETT ER BENICHMAL SPIELEN (LASSEN 7? 
WAIT1S8,1:GETB£: IFB£="J" THENRUN 

PRINT" TIEUIMIMEIRESIERBISCHÄLE 1" 

PRINT: PRINT" AUF WIEDERSEHEN MRISIEIRIIKERUN 

END 

IFERNDN>OTHENFORNI=NI+STONISTERS:GOTO1338 

INPUT :PRINTTAB<22>; "ANZAHL DER 

PRINT" VERSUCH"SFCA3H "SCHWARZEN UND WEISSEN 

FORNI=BFSTÜHN+NISTERS 
PRINTFEEK(NIPPEEKCI+NIDFEEKCZ+NID, „PEEKCS+NLD, PEEKC4+NID NEXT :NI=NI-5 
RETURN 

PRINTLEFT&«" JA", ZANDBE=" J" YLEFT#C"NEIN” „4ANDBE="N") RETURN 

FORI=8T05 :RERDR: IFFEEKCADORFEEK CA+4 > THENFRINHT"DIE ZEILE" I"STIMMT HIGHT.":EN 


NEXT 

DATA1961,1132,1203,1274.1345, 1353 

FOR1=1852T0135%: RERDA:FOKEI,A:NEXT 

FRINT" JETZT KOENNEN DIE ZEILEN AB Zac 

PRINT"GELOESCHT WERDEN. 
DATR129,4,1,8,143,34, 141,15, 1,174,41,4,169,1.169,6,153,15,1,136, 208, 259,140 
DATAZ2,1,149,23,1,133,128.3,77:13,1,209.9,238,22,1,148,16,1,149,17,1,189,12 


DATA3, 77.12:1,208,9,238.22.1.140.18.1,149,19,1,189,139,3,77,11,1,208, 9,238 
DATA22,1,148,28,1,1498,21,1,189,131,3, 77,22,1.248,11,76,26,5,8,38,5,2.8,143 
DATA34, 66, 183, 129,3, 77,12,1,208,17,173.17,1.49,19,1,249,9,238,23,1,148,17,1 
DATA149,18,1,189,128,3,77,11,1.268,14,173,17,1,45,20,1,248,6,238,23,1,148,2 


DATA1,189, 129,3, 77.13,1.205.17,173,16,1.45.13,1,248,9,238,22,1,149,16,1,1408 
DATA19,1,183, 123, 3,77,11.1,208,11,173,19,1,49,29, 1,240, 3.238,23, 1,189, 138,3 
DATA??7,13,1,208,14,173,16,1,45,21,1,248,6,238,23,1,140,21.1,189, 130,3, 77,12 
DATA1,288,11,173,18,1,45,21,1,249.3,239,23,1,189, 192,3, 77,23,1,208, 6,236, 239 
DATA1,268,46,96,173,11,1.281.9,248,6:.235.11,1,76,47,4,285,12,1,249.9,238,12 
DATA1,152,141,11,1.2489,239,2059,13,1,2498,9,238,13,1,152,141,12,1,248, 237,148 
DATA1S5,1,96, 232, 232,232, 232,232, 76,30,4,8 

















Mastermind 2 


Bei dieser Version spielen 
zwei Spieler gegeneinan- 
der und versuchen zur glei- 


chen Zeit die versteckte 
Zeichenkombination zu 
erraten, wobei jeder die 





Versuche des Gegners und 
die eigenen in seine State- 
gie zur Lösungsfindung 
mit einbeziehen kann. 

Die Spielanleitung am An- 
fang erklärt, wie das Spiel 
bedient wird. Hat man sei- 


nen Versuch auf dem Bild- 
schirm mitttels Zahlen und 
den ‘Größer-als- Kleiner- 
als-Tasten‘ plaziert, so 
schließt man ihn mit der 
Spacetaste ab. 





1 H=2:G0SUB1298 
5 INPUT"WIEVIEL ZEICHEN <£ 3 - 18 3" ;WZ:WZ=INT(CWZI : IFWZILBORWZ<3THENS 

198 DIMTR$C2,12,53,RP(2,12),R212,12),C028(5),P$(14) 

29 FORI=1T05:CZ<I>=INTCRNDS1D#UZ) :NEXT 

21 FORI=1T05: IFCZ<II=ATHENTZETYm" #" 

22 IFCZCID=LTHENCZECTYI=" WE" 

23 IFCZEIYI=2THENCZECITI=" RM" 

24 IFCZCID=ITHENGZELII="M" 

25 IFCZCII=4THENCZECIY=" MR" 

26 IFCZCII=STHENCZECTI=" 4" 

27 IFCZ£LID=ETHENLZELII="M" 

28 IFCZ£II=7THENCZETI=""M" 

29 IFCZCII=BTHENCZECTIM" £" 

3a IFLZSII=ITHENDZELTIE"M" 

31 NEXT 

32 FORI=1T014:READP$CIY:NEXT 

35 PRINT"T" 

se F=9: IFH=1THENH=2:G0T07® 

68 IFH=2THENH=1 

62 DATA" n,n "ZA, 
63 DATA"? = HM", "Bm Et, 

64 DATR" nn " 

7a PRINT" ## MASTERMIND ı R 

75 IFY<ATHENFORI=1T014: PRINT" 1 
89 PRINT! BUMUMTSTETRIKTATSTMTKTEDETMTKTKEKTNTN TG 

82 PRINT" cam RETURN 17m" 

84 PRINT" YET Aesnnsneusnunsunmen 3 "Wan 2" ' 

95 PRINT" 

122 FORI=1T012:FORJ=1T05 

118 PRINT" MI" ;LEFTSCTRECH, TI, 1D5 : IFTRECH, I, SI" "THENPRINT" 8." 
115 NEXT 

129 PRINT"M ";:IFRPCH, I>=8THENPRINT"B 

121 IFRPCH, II=1THENFRINT" DM "s:LF=4 

122 IFRPCH, ID=2THENPRINT" 9e8 ";:LF=3 

123 IFRPCH, II=3THENPRINT"MeB8 ";:LF=2 

124 IFRPCH, I>=4THENPRINT"BeRe8 ";:LF=i 

125 IFRPCH, I>=5STHENPRINT" Benee@"; 

126 FORI1=1TOLF:PRINT"M"; :NEXT 

139 IFRZ£H, II=1THENPRINT" 0"; 

131 IFRZCH, DD=Z2THENPRINT" O0"; 

132 IFRZCH, D=3THENPRINT" Ban" ; 

133 IFRZCH, D=4THENPRINT" MO00"; 

134 IFRZCH, I=5THENPRINT" MODaO" ; 

148 PRINT 

158 NEXT: IFF=1THENS® 

200 F=eil:L=L+1:V=INT(CL/2.BRB@m1>+1 

218 PRINT"MWSPIELER" SH" 

215 FORI2=2T04 : POKE32819+V40+12%#3, 191 NEXT 
216 BOSUBEODO 

221 GOSUBSQ1 

225 FORI=1TOS:CZSCITIMLEFTSCCZECIY, 13 NEXT 
239 FORI=1T05: IFTR$CH, V, II=CZ$CIYTHENRPCH, VI=RPCH, VI+1 :GOSUBIQB 

235 NEXT 

249 FORI=1T05:FORJ=1T03: IFTRECH, V, I=CZECIJ> THENRZCH, VI=RZCH, V)+1:G0SUBI1B 
245 NEXTJ,1 

259 IFRPCH, YI=STHEN3BB 

269 IFV=12ANDH=2THEN498 

279 G0T058 

388 PRINT" ZERMMDTEDIKKTKDSOTKIRTKTEDISSPIELER" SH; "MI GEWONNEN IM";V; "le VERSUCH 
318 GOT0439 

428 PRINT" TED en" 

481 PRINT"SALLE SPIELER SIND NACH 12 VERSUCHENE SBESCHEITERTI"; 
4982 PRINT"B " 


";P&C12:" ":NEXT 


";:LFeS 


























485 PRINT" 

418 FRINT"SDER ZAHLENCODE LAUTETE: ";:FORI=1T05:PRINTLEFTSCCZECID,.135" "3 :NEXT: 
PRINT 

428 PRINT"3 : 

438 INPUT"XNEUES SPIEL"; IJN$: IFLEFTSCINS, 13="J" THENRUN 
448 PRINT" AUDUNDDUDDKDLEKLDINROK Tannen nun nun nn nun une n nn nn" 
445 POKE158,8:WAIT158,1:POKE1S8,8 

458 END 

581 FORI=1T05: IFTR$CH,V, I>="B"THENTRECH, Y, Ddm"" 

582 IFCZ<CII=LTHENCZECTI="" 

583 IFCZCTI=Z2THENCZECTI=" MR" 

584 IFCZCTI=3THENGZECTI" MR" 

505 IFCZCII=4THENCZECTI" M" 

506 IFCZCII=STHENGZECTIE"G" 

507 IFCZ<CTI=STHENCZECTI=" M" 

588 IFCZCII=7THENCZECTI=""E" 

589 IFCZCII=BTHENCZECTI=" S" 

518 IFCZ<TI=3THENCZECTIR" W" 

511 NEXT 

512 RETURN 

608 13=32810+VM49: 14=13-1:POKEI4, 1589: POIKE158, 8 

618 GETR#: IFA&=""ANDPEEKC1I4)=191THENFOKEI3, 63 

612 IFA$=""ANDPEEKCI4)=63THENSIB® 

614 IFR$="<"ANDI4>I3-1THENI14=14-3:POKEI4, 158: POKEI4+3, 160 
616 IFA&=")"ANDI4<CIS+11THENI4=14+3:POKEI4, 158: POKEI4-3, 168 
618 IFAs=" "THENPRINT " BRUHTSUSDKUNTSTRÜSTRUSTRTRTSTRUR 

0788 

629 IFA$="9"THENPOKEI4+1,163 

625 IFA$e"1"THENPOKEI4+1,211 

630 IFA&="2"THENPOKEI4+1,193 

635 IFAg="3"THENPOKEI4+1,178 

648 IFF&="4"THENPOKEI4+1,216 

645 IFA$="5"THENPOKEI4+1,218 

658 IFA$="6"THENPOKEI4+1,233 

655 IFA&="7"THENPOKEI4+1,255 

668 IFA$="8"THENPOKEI4+1,164 

665 IFA$="3"THENPOKEI4+1,230 

678 GOUTOSI1B 

788 16=8:FORIS=13T0<13+12>STEP3: I6=I6+i 

781 IFPEEKCISI=Z11THENTRECH, V, ISI="@" 

782 IFFEEK(ISI=19I3THENTRECH, VW, ISy=" Mm" 

783 IFPEEKCISI=17BTHENTRSCH, V, I6)="M" 

784 IFPEEK(ISI=Z15THENTRECH, V, I6)="M" 

785 IFPEEKCISI=218THENTRECH, V, I6)="g" 

786 IFPEEK(IS)=233THENTRECH, V, I69="" 

787? IFPEEKCISI=255THENTRECH, VW, IS)" 1" 

788 IFFEEK(1ISI=164THENTRECH, Y, Isye"&" 

783 IFPEEK(CISI=230THENTRECH, V, IS)="W" 

718 IFPEEKCISI=163THENTRSCH, V, I6)="#" 

712 NEXT 

?28 FORIS=13-1T013+11STEP3:POKEIS, 169: NEXT 

738 RETURN 

908 TRECH,V, DI=TRECH, V, II+" 8" I CZECII=CZEC1I+"0" RETURN 
918 TRECH,V, DeTRECH, V, DI+"@" 1 CZECTY=CZECIT)+"0" RETURN 
18098 PRINT" TI ne" 

1818 PRINT" MASTERMIND #2." 

1848 PRINT"WWFINDEN SIE DEN WERSTECKTEN ZEICHENCODE." 
1858 PRINT"MIT DEN TASTEN D<=& 9> = HABEN SIE" 
1855 PRINT"DIE MOEGLICHKEIT DEN FLATZ ZU BESTIMMEN," 
1868 PRINT"TAN DEN SIE EIN BESTIMMTES ZEICHEN SET-" 
1865 FRINT"ZEN MOECHTEN < EINGABE EINER ZAHL! 3." 

1878 PRINT"MIT DER LEERTRSTE BEENDEN SIE IHREN VER-" 
1875 PRINT"TSUCH. " 

1880 PRINT"DIE MsB-ZEICHEN ZEIGEN AN: CODEZEICHEN ISTAN DER RICHIGEN STELLE!" 
1885 PRINT"DIE SOB-ZEICHEN ZEIGEN AN: CODEZEICHEN ISTRICHTIG ABER AN DER FALSCHE 
N"; 

1898 PRINT" STELLE!" 

1188 RETURN 






































Biete an Software Bl 
I SINCLAIR-ZUBEHÖR VOM FACHMANN I 
M Hardware DM = 
I neu: ZX Spectrum 16K 650 0 
EM neu: ZX Spectrum 48K 830 
MM Seikosha GP-100 80 Zeichen 995 MM 
W Große Tastatur 245 0 
m Memdpak 16K Erweiterung 165 0 
MI Memopak 32K Erweiterung 265 
m Momopak 64K Erweiterung 365 
2 HRG Hochauflösende Grafik 215 m 
MI Memopak \/F Centroniesschn. 215 MM 
MM Soundbox 3-Fach-Tongener. 15 m 
mM Software DM u 
MM 1K Chess läuft auf 1 K 35 m 
m ZX Chess 2 läuft für 16 K 69 
MM Toolkit Befehlserweiterung 49 m 
MI Aszmic-Rom Assembl. Betr. 215 m 
EM Puckmann Pacman-Version 40 m 
m Pilot Flugsimulator 40 m 
MM Überw. an Dresdn. Bank, W'burg = 
m Kto. 3294225, BLZ 79080052 u 
u Info g. DM 2 a/Konto von hsd-soft, MM 
m Pf. 1418, CH-6020 Emmenbrücke u 


%kkAk%k%k SUPER-VEW KkkK%k 


Einmaliges EXBASIC-Level-I-Prg. 
zur Auswertung sämtlicher VEW- 
Systeme (6/49 & 7/38). Info: Th. 
Preymesser, Hesselbergring 19, 
8500 Nürnberg 60 


T199/4A SOFTWARE - z.B.Kleinbuch- 
staben, SPIELE, MATHE etc. 

ZX 81 PROGRAMME ab 1,- !!! 

H. RAFEINER 2 HAMBURG 54 
LOKSTEDTER STEINDAMM 69A 





VC20-ANWENDER * Programme di- 
rekt vom Autor. HAUSH.-KONTO- 
FÜHRUNG mit max. 50 Konten + 13 
S. Handbuch nur 50 DM Info gegen 
2 DM in Briefmarken von Elmar Ma- 
ronn, Rathaus -Str. 306, 7981 FRON- 
HOFEN * PROFIWARE 





ZX-SPECTRUM 16K NUR 496.-DM 
ZX-SPECTRUM 48K NUR 724.- DM 
SPECTRUM 32K-RAM 


NUR 198.- DM 
NEU:Spectrum LICHT-GRIFFEL 
16/48K m. Softw. NUR 89.-DM. 


BÜCHER z.B.Complete ROM Disas- 
sembly 44.80 DM 

Spec 3-D Spawn of Evil 29.80DM 
Spec 3-D Pharao’s Tomb 34.80DM 
Spec Voice Chess, das sprechende 


Schachprogramm(48K) 49.80 DM 
Spectral Invaders 24.80 DM 
Spec FORTH,‚incl.Editor 88.80 DM 
Aspect Editor/Assembler 44.30DM 
VC20 SCRAMBLE 34.80DM 
VC CHESS 34.80 DM 
VC Games Pack 29.80 DM 


Auch Progr. für ZX81, ACRONATOM 
und BBC. Katalog gegen 1.30DM in 
Briefm. T. Wagner, Softwareversand, 


| Postfach 112243H, 8900 Augsburg 





Ki 








einanzeigen 





Super VC-20 Programme @Kauf od. 
Tausch über 200 Pgm ®Spiele ® 
Toolkitskommerz.Tel0721/594785 





VC-20: Spielpr. günstigst; Info mit 
Spielbeschr. gegen 1,20 DM; Fink, 
Oberstimmerstr. 33, 8070 Ingolstadt 


%%* VC-20 Superprogramme je 5,- DM 
%*%* über 300 Programme auf Cassette 
%*% Info 1,- DM bei Peter Doffine 
%*%* Heugärten 9; 4763 Ense 5 


VC-20/ VC-64 Software! Etwa 500 
Programme: Tel. 02222/3640 





ZX-81 (16K): 2 Brettspiele > 
Backgammon + Mühle auf Cassette 
zusammen nur 10 DM (Info gegen 
Freiumschlag).S. Wimmel, Thielen- 
str. 4, 2800. Bremen 1 


ZX-81-Katalog DM 1: Programme 
auf CC z.B. IQ, Multimaze. Nur bei 
€. Goltz, Ingewai 16, 2280 Keitum. 


Verkaufe meine Software für VC-20 
Liste gegen Rp 

B. Konecny 

O’Briengasse 54/1, 1210 Wien 





Verk. VC-20 Software. Liste geg. 
80 Pf. in Briefm.! Thomas Baum, 
Wimmelstr. 2a, 3500 Kassel 


*k%k%*% Apple-Software KrK%* 
Große Auswahl von Apple II Soft- 
ware. Bitte Liste anfordern. 
Zuschriften unter 8305/1 





Kostenlos - ZX81 Programme aller 
Art - Info: Ingewai 16, 2280 Keitum 
Christian Goltz! 


VC-20 Assemblerprogramme äußerst 
preiswert. Auch Tausch. Info gg. 
Rückporto bei A. Sauren, Vennstr. 
49, 5190 Stolberg. Es lohnt sich! 





VC-20 oder ZX 81 Software! Katalog 
VC-20 4 DM, Liste ZX 1DM. Schnell 
anfordern von: TREICHEL, Mittel- 
bruchzeile 105-1, 1000 Berlin 51. 





*#%%% VC-20 Soft- u. Hardware KK + 
%  z.B.8K Speicher 95 DM. Schnell- * 
%* _ Lademodul für Recorder 1200M * 
* viele Spiele u. anderes Zubehör + 
%* Info gegen Freiumschlag oder * 
* 1,30 DM in Briefmarken an * 
*#%* N. Flesch, Scheideweg 63g *** 
*%%* 4650 Gelsenkirchen Buer K+%* 


Super Arcade u. Strategiespiele 
(SF/Fantasy/Wargames) für Apple/ 
TRS-80/Atari/PET/IBM-PC auf 
Cas/Disk. Katalog für DM 1,- in 
Briefm. von: Fantastic Shop, Abt. H, 
Postf. 3026, 4000 Düsseldorf 1 





Hard- u. Software (Programme, Mo- 
dule) für TI-99/4a, VC-20,64, MZ-80 
A zu Sonderpreisen, Info gg. DM 1: 
Boxler, Mittelfeldstr.50, 732 Göpp. 8. 








* VC-20 Supersoftware + UNE 
WM ActionäLift,Inio:99Pf,J.Güttee MM 
IM Kölner Str. 99, 5650 Solingen OEM 





*##% VC-20 Software??? Kr% 
%*  Spitzensoftware in großer * 
%* Auswahl bei: H&M Kohlen &* 
%* Volkartstr.36,8000 München 19 & 
%* Info geg. 2,- DM in Briefm. * 
%*%%* oder Ihre Tauschliste. #** 





TI-99/4A, Joysticks, Extended ® 
Basic, Software, VB: 1050.- DM ® 
P.DASSOW, Tel.(0661)44194 Sa! ® 


Günstig! ZX81 MIT 16K ERWEITE- 
RUNG, KOFFER, PROGRAMMEN 
AUF KASSETTEN UND LISTEN, 
SPIELEBUCH GESAMT NUR 300.- 
DM. J. GROSSMANN NACHTIGAL- 
LENWEG 30, 2070 AHRENSBURG 





- VC-20/VC-64 Kassetteninterface - 
jeder Recorder o. Tonbandgerät 
anschließbar. Fertiggerät im Geh. 
mit Steck. 48 DM auch für CBM. 
U-Portst.9,80 DM Griff 3 DM NN 
Portofrei Fa. BOI, Hoye 1, 2225 
Schafstedt, Tel. 04805/380. 





Verkaufe ZX-814+ Memotech-16K 
+ div. Software (Schach u. a.) 

+ Bücher für 400 DM 

Tel.: (0751) 93170 


VC-64 + 1541 + Datasette 8 Wo- 
chen alt, 2000 DM Tel. 09602/5252 
ab 18.00 Uhr 








MZ-80 K mit Deb., ML, ASS, Extend.- 
Basic, Pascal König (07159) 6779 


F Suche Software 


a EEE RE] 





Suche Pascal für Apple II Euro + 
und andere Sprachen. M. Köwing 
Lohbrügger Weg 1, 2050 Hamb. 80 





Suche Software für alle Homecom- 
puter. Nehme alle Pgm. C. Zalesiak, 
Broicher Str. 42,4200 Oberhausen 1 | 








Hochaufl. Grafik f.Epson MX-80 FT 
Umbau in 3 Min. Statt 298 nur 98 
DM, Info oder Scheck an E. Noack, | 
Wilhelmstr. 43, 4620 Castrop-R. 








..ses.osss.s©. 
® ZX-81-Monitoranschlu! 
® Zeichengrünaufschwarz;auch ® 
® Invertierung d.Fernsehbildes @ 
@ möglich. Info: F. Kopitzki, ® 
® Ameisenbergstr.57c, 7Stgt.1 @ | 
.o.sesoa.o.o.0.2e000® 








Suche Kontakt zu VC-20 Besitzern. 
Robert Elmshäuser, Teichweg 6 
3550 Marburg 7 


Freie Mitarbeiter für Softwareent- 
wicklung VC-20/64 gesucht. 
Assemblerkenntnisse erforderlich. 
Tel.: 06121/708427, 8-16 Uhr. 
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Der VC-64 
Videochip Teil 1 


In diesem Heft beginnt eine Serie, 
in der dem Computer etwas näher 
in die Bytes geschaut werden soll. 


Die maximale Anzahl der 
Zeilen im Tastaturpuffer 
läßt sich durch POKE 649, 
N bestimmen, wobei N ei- 
ne Integerzahl zwischen 0 
und 255 ist. Tippt man 
noch mehr Tastendrücke 
ein bevor die nächste GET 
Anweisung kommt, so 
werden die weiteren Ta- 
stendrücke ignoriert. Es ist 
jedoch nicht empfehlens- 
wert, in 649 eine größere 
Zahlals 10 zu poken,dader 
lite abgespeicherte Ta- 
stendruck den Computer 
aussteigen läßt. 

Man kann das Basic umän- 
dern und sich sozusagen 





sein eigenes Basic schrei- 
ben. Dazu muß man erst 
das Basic aus dem ROM in 
den RAM-Bereich gleicher 
Adresse kopieren. Das 
macht man mit: 

FORI = 40960 to 49151: 
POKEI, PEEK (I): NEXT. 
Jetzt muß man dem Com- 
puter noch sagen, daß das 
Basic im RAM steht. Das 
tut man mit POKE 1,54. 
Zurückschalten kann man 
mit POKE 1,55. 

Nun kann man nachsehen, 
an welcher Stelle die ein- 
zelnen Befehlsworte ste- 
hen; z. B. indem man die 
STOP-Taste drückt, wenn 








das gesuchte Wort kommt 
und dann die Variable I 
drückt. Dann PEEKed man 
die Bytes in der Nähe von I 
ab, um den genauen Wert 
zu bekommen. Per POKE 
kann man jetzt die Befehls- 
worte umändern. Man 
muß aber darauf achten, 
daß man bei dem letzten 
Buchstaben oder Zeichen 
das höchstwertige Bit setzt, 
d. h. zu dem ASCII-Code 
128 addiert,und beidenan- 
deren nicht, da sich sonst 
die Interpretercodes der 
darauffolgenden Befehle 
und Funktionen ändern. 
So kann man z. B. mit PO- 
KE 41118, ASC (”U)” den 
Befehl END in UND 
umändern. Dann kann 
man schreiben: END = 7: 
PRINTEND und erhält die 
7. Dagegen führt die An- 
weisung END zu einem 
?SYNTAX ERROR. Am 
Programmende kann man 
UND statt END schreiben. 


Die Befehlsworte stehen 
ab 41118 bis 41372 in der 
Reihenfolge ihres Interpre- 





tercodes. Der erste Befehl, 
END, hat den Interpreter- 
code 128. Das Ende eines 
Befehlswortes ist dadurch 
gekennzeichnet, daß das 
höchstwertige Bit gesetzt 
ist. 


Wenn man die Befehlswor- 
te auslisten will, muß man 
das höchstwertige Bit lö- 
schen, da sonst statt des 
letzten Buchstabens des 
Befehlswortes das Gra- 
phikzeichen erscheint, das 
man erhält, wenn man den 
letzten Buchstaben mit ge- 
drückter Shift-Taste tippt. 
Hier ein Programm dazu: 


10 FOR I = 41118 TO 41372 
20 P = PEEK(D): 
PRINTCHRS (127 AND 
P); IF P>127 THEN 
PRINT 

30 NEXT 


Im nächsten Heft werden 
wir uns dann näher mit 
dem VC-64-Zeichensatz 
und seine Möglichkeiten 
befassen. 


ab 20. Mai ’83 


bei Ihrem Zeitschriftenhändler 


oder direkt bestellen beim: 
Roeske Verlag 


Postfach 629 


3440 Eschwege 








Wettbewerb 
250 Computer zu gewinnen. 





Jeder Abonnent, der einen Abon- 
nenten für Homecomputer wirbt, 


erhält als kleines Dankeschön 
”Das Microcomputer-Taschen- 


buch” (Erscheinungstermin Juni 
1983) mit viel Wissenswertem 


Die Gewinnverteilung erfolgt nach einem für alle I 
Leser sehr interessanten Schlüssel. Jedesmal, £ n ae Be 
wenn beiuns1000 neue Abonnentenregistriert / „L 

wurden, dann erhalten diejenigen 10 Leser, 
die zu diesem Zeitpunkt die meisten Abon- 


nenten geworben 
haben - also in der 
Wettbewerbsliste 
vorne liegen - ei- 
nen Microcompu- (en, mamma 
ter ihrer Wahl und ER 

zwar der Erste die- en oe 
ser Wettbewerbs- 
liste einen Micro- & 
computer 





| im Werte A oo 
von 2500.- DM und die W 
9 folgenden jeder einen 


im Werte von 1000,- DM. 


Die 10 Gewinner werden aus der Wett- 


bewerbsliste gestrichen (sie können 
allerdings von neuem 
beginnen und wieder 
gewinnen), und die 
ihnen Folgenden rük- 
ken nach. 


2X Spectrum 


Sind wieder 1000 
Abonnentenerreicht, 
geht es weiter wie 
oben beschrieben. 
Mai 1983 





EI TITTEN 
uno nu u u m m 
ZESaEBnnnnm 
zu un nun nm: 


über die populärsten Microcom- 
puter. 

Außerdem verteilen wir noch 250 
Computer an diejenigen Leser, die 
Homecomputer die meisten Abon- 
nenten zuführen. 











Teilnahmeberechtigt ist je- 
der,derHomecomputerre- 
gelmäßig im Abonnement 
bezieht. 


Die Gewinner werden so- 
fort benachrichtigt und in 
der jeweils folgenen Aus- 
gabe von Homecomputer 
bekanntgegeben. 


4 i 





Homecomputer 63 


K=Kassette 


TI-99/4A 
Panzerkrieg 
TI-Ufo 
Killersatellit 
Chiffrier/dechiffrier--PGM 
Rangliste 


VC-20 


D=Diskette 
K 10,-DM 


K 14,-DM 
D 20,-DM 
Invaders (3PGME) 

Editor 

Assembler (neu) 
Labyrinth 

Car-Crash 


ZX-81 
Ritter 
Missile ZX-Command 


VC-64 K8,-DM 
D 15,-DM 

Mondlandung 

Wurm 

Geisterjäger 

VC-64-Sprite-Generator 

Apple II D 12,-DM 


Diskschutz 
Trollhöhlen 


Pet-Bytes 
Mastermind | 
Mastermind 2 


K 8,-DM 


K 8,-DM 








Programme auf Diskette 
und Kassette 


Nicht jeder Leser hat die 
Zeit und die Geduld, alle 
Programme, die er gerne 
hätte, in sein Gerät einzu- 
tasten. 

Wir haben uns deshalb 
überlegt, daß es das ein- 
fachste ist, wenn wir die 
Programme, die wir ohne- 
hin auf Diskette oder Kas- 
sette vorliegen haben, die- 
sem Leserkreis zum Selbst- 
kostenpreis (Datenträger, 
Kopierzeitaufwand, Porto, 
Verpackung und Mehr- 
wertsteuer) anbieten. 

Es genügt jeweils die An- 
gabe eines Stichwortes, z. 
B.: VC-20-Disk Heft 5 oder 
Sinclair-Kassette Heft 5. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszah- 
lung auf unser Konto bei 
der 

Kreissparkasse Eschwege, 
Bankleitzahl 522500 30 





Nummer 4522934 senden 
wir Ihnen die gewünschten 
Programme schnellstmög- 
lich zu. 


Bestellungen Ausland: 


Nur Vorauskasse Schein 
(Kassette 10,- DM, Disket- 
te 20,- DM). Keine 
Schecks oder Überweisun- 
gen! 


Lieferung noch nicht 
erhalten? 


Bei Überweisung aufunser 
Konto kann es bis zu 2 Wo- 
chen dauern, bis wir Ihre 
Bestellung in Händen ha- 
ben 

Oft passiert es, daß auf der 
Überweisungsdurchschrift 
weder Name, noch Ort, 
noch Art der Bestellung zu 
erkennen sind. Schreiben 
Sie uns! (Anrufe kosten 
viel Geld und bringen, weil 
dann Schriftvergleiche 
nicht möglich sind, kein 
Ergebnis!) 





Heft 5/83 


Spät, aber nicht zu spät fiel 
auf, daß das Listing vom 
Assembler in diesem Heft 
die „Generalproben-Ver- 
sion“ war. 


Später wurden noch 3 Zei- 
len geändert 


1070 IF AI<6 ANDL>1 
THEN ..... 

4135 Al = 0: (Rest wie ab- 
gedruckt) 

10000 DATA (der Wert 170 
muß durch 176 ersetzt wer- 
den) 


Heft 4/83 


Das Listing des Program- 
mes Asteroiden hatte fol- 
genden Fehler: 


930 IF KEY=74 THEN 170 


Auftrag für Gelegenheitsanzeigen in Homecomputer 


Name und Adresse 


An Homecomputer 
Gartenstraße 47 
3440 Eschwege 











Unterschrift Ich zahle sofort nach Rechnungserhalt. 


Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- 
legenheitsanzeigen für Ver- 
kaufsangebote, Kauf- und 
Tauschgesuche, Kontaktauf- 
nahme bzw. Erfahrungsaus- 
tausch usw. 


Ich wünsche folgenden Text zu veröffentlichen: 

















Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl. 
MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. 


Gewerbliche Gelegenheitsan- 
zeige je Druckzeile 7,—DM inkl. 
MwSt. (dürfen nicht unter Chif- 
fre erscheinen). 
















































































Zutreffendes ankreuzen 
Tausch D Versch. 
Kontakte Chiffre 











suche Hardware 









































biete an Hardware 




















Rüsten Sie Ihren Apple auf 
mit unseren Video-Interfaces! 


(auch für Apple kompatible Computer) 


Echtzeitdigitalisierer 


incl. MWSt. 


Graphicinterface 





incl. MWSt. 

Graphicinterface Echtzeitdigitalisierer 
Eigener 32 k Byte Bildspeicher Echtzeitdigitalisierer in 40 m sec. 
Graphic-Controller EF 9365 ca. 65000 Bildpunkte mit 16 Graustufen 
Umschaltbar 512 x 512 Punkte in schwarz-weiß oder eingebauter DA-Wandler zur Betrachtung 
256 x 256 in 16 Graustufen bzw. 16 Farben auf jedem des digitalisierten Bildes 
dieser Punkte Digitalisierung von Videorecorder, 
Hardcopymöglichkeit von 512er-Modus Kamera oder Fernseher 
ASCII-Zeichensatz in Größe und Richtung Keine Software für Bildliesevorgang 


programmierbar nötig 
Vektorplot mit 1 Millionen Punkte pro Sekunde 
Ausgang für RGB- und BAS-Monitore 
Demosoftware auf Diskette 


NEUANKÜNDIGUNG: 


Echtzeitdigitizer mit 
Sofortdisplay und 
eigenem Bildspeicher 


Digitalisierung und Display geschieht in 1/50 sec. 
Karte enthält eigenen Bildspeicher. 

Auflösung: 256 x 256 Bildpunkte. 
Fremdsynchronisation der Kamera notwendig. 





mit AD16-3 digitalisiert durch HGR-512 dargestellt 


Bartscher Elektronik - Westring 84 - 3440 Eschwege - Tel.: 05651/1795 


wic&SOrr 


Demnäch 
st 
Software für alle 


Neu: Systeme lieferbar 


nn 


Adventure-Spiel f. VC-20 


(Speichererweiterung mind. 16K) 
ein Superspiel m. 
_ - High-Res.-Graphik 


Cassette 19.50 DM 
Diskette 25.00 DM 


5 Programme für den VC-20 auf einer Cassette! 
Geschicklichkeits- und Denkspiele f. Joystick und 
Tastenbedienung. 


@ Autorennen 
@© Rememby 
@ Roulette 

@ Mastermind 19.50 DM 


@ Fadenkreuz 


—osyÖZ 
WICOSOFT 


Nordstr. 22, 3443 Herleshausen 


alles zusammen nur 


Ich bestelle: 





Cassette 19.50 DM 
Der Fluch des Pharao Diskette 25.00 DM 
| VC-Programmkassette VC-20 o.Em. 

VC-20 +8K 
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V-Scheck ist beigefügt 


























per Nachnahme 
(zzgl. Nachnahmegebühr) Name, Anschrift: 

















